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REQUEST 

“. UR3DEF r “ ' . ' 

* * 

y-V-V-VV-V- -f-V- f » » + ^f V ¥-¥ •» *•¥•*¥¥* ffrjf-? •»¥ ¥•¥ V-* ¥ * %■*■#?**■** . 

* * 

',* UR3L0CK BLOCK DEFINITIONS * 


0 0 0 0 0 
0 0 0 01 
0 0 0 02 

. 0 00 0 3 


0 0 0 0 4 


-Q-Q-0-0-S- 

0 0 0 06 
0 0 0 07 
0 0 010 
0 00 11 
F00T2'' 


.O'OO'IS" 

0 0 0 14 

-0 0 015. 

0 0016 


"0"0'0'1"7~ 

0 0020 
00021 
mnrzT 

-3 00 2-3 
0 0 Q 2 4 

•G'O-e-2-5' 


FB 

BLF. 

BFBGN 

- 

3FCPP 
. * 


CALBAK 

3.*.'. 

.* 

-I-MA-0.. 

.* 

LNIM 

'KlttPlrAG' 

ENAD 

NJN 

TWIT.“ 


UE7BOT 

COUNT 

POST- 

PFWORD 
F ORMSWRQ 


TQE'ItT" 
URBEXITA 
URBEXIT 
TlTiTGlW'- 

• * 

W- 

QEMPTY 
.. * 

STRTLOe 


0 

FB+1 

BLF+1 

BFBGN+1 


BFCPP+1 


CAL3AK+1— 

I MAO +1 
TNIM-ri— 
KILLFLAG+1 
ENAD+1 
WUM+i. 


EWTT+T 

DEV3LK+1 

C QUNT + 1-. 

POSI+i 

PFWORD 


PFWORO+1 
I DENT+1 
URBEXITA+l 

TfRBExrr+r - 

-QINGLOG*-!--. 

QPNT+1 

-t'E'MPTT+1— 


POINTER TG NEXT FILE BLOCK * 

COUNT 0F BLOCKS IN THIS FILE.* 

QUARTER PAGE NUMBER OF CURRENT * 

512.WORD.BLOCK.* 

POINTER TC NEXT WORD TO BE * 

LOADED FROM THIS BLOCK. THIS * 

POINTER IS RELATIVE TO THE.'*~ 

BEGINNING OF THE CURRENT BLOCK * 

GO TO THIS ADDRESS WHEN BUFFER * 

IS.DONE.AFTER.AN.INTERRUPT.* 

BIT23 SEZZ CALSAK * 

-LOG AT ION.W HERE.RE CORO.IS TO.BE. * . 

PLACED OR MOVED FROM. * 

MAXIMUM ALLOWABLE RECORD SIZE * 

ST I.*.--0.- .*~ 

ENI SLOCK,XI * 

UJP IMPURE . * 

'TEMP.FOR.INDEX".3 .* 

IF BIT23 DEVICE MUST BE STARTED * 

BY.OPERATOR. *- 

IF 81T 22 DO NOT PROCESS FORMS ON* 
THIS DEVICE * 

"IF”.8TT21' THEN”STOP.MACRO .- .. *~ 

IF 81120 THEN BUFFER IS UNSAFE * 
8IT19 IS A QUEUEING FLAG * 

”PNTR'~T0.FOUR.WORD.BLOCK..* 

COUNT OF WORDS IN RECORD * 

-RE- L AT IV E.LOCATION.IN.BUFFER.* 

CONTENTS OF PF1 * 


~.BIT19 


WAITING 


NEXT* 


OPERATOR TO READY DEVICE 
BIT20 SEZ WANTS FORMS 
BTT21 SEZ' HAS FORMS 
BIT22 SEZ TAKE FORMS OUT 

-SII2-3.SEZ-.SAME.AS—BII-2-2.BUT. 

DRIVER IS WAITING TC OUTPUT NEX 
FILE 

8C0 TDEN'T 'OF” THE DEVICE 
ENI BLOCK,XI 
UJP IMPURE 

ADDRESS TO GO TO WHEN FILES. 

ARE UNEQUIPPED 

-PO-I-N-T-ER—TC -NXFTR AND LXRTR,. 

ADDRESS TO TELL DRIVER THAT IT 
HAS TO MORE FILES TO OUTPUT 
ADDRESS TC TEtt—8RIVER TC START 


DEVICE' 


WHEN 




o 







































CD 


CD 


CD 


O 


ASSEM8LER/0S3 


VI.0 09/24/74 0122 
•j u C U 0 P. 


PAGE i 

191 . 7 . 

192 

19 3 -- 

194 

196 

197 

197+001 
197+002 
197+003 
.198. 


REQUEST 
PURE 03.. EQU. 


START.OF.PURE CODE REGION.03 


# & ** 41*.* AA .y.* * y- V* AA AA AA AA AAAAAA AA AAAA AAAA AAAA AA AA AA *AA AA AA AAAA AAAA AA JA AA AA AAAAAA AA AAAAAA AA ¥ AA V AA AAAA AAAA AAAA AAAAAAAA AAAA* AAAA* 

AA ' • - - -— — - ™ ~ - • - -.*...* ....*" i **«^^ 

* EXECUTIVE REQUEST DECODE TABLE * 

AA AA 

lookedupinlUNLIST 


AA 
* 

.AA.. 

AAAA y# y, AA AA AA AAAA -A 1 AA * * AA AA AAAA AA AAAA AAAAAAAAAAAAAAAAAA**AA*AAAAAA* AAAA AAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA* AAAA AAAAAAAA*AAAA 


BIT 23.— NEEDS EFFECTIVE AOORESS (LUN) 

BIT 22 — LEGAL ONLY IF IN CONTROL MODE 


200 


o 

00000 

0 0001 

0 0 0 00 
40 001225 
40 0 0 10 7 5 

P . 

P 

P 

201 DECODE 

202 

20 3 

—eoru— 

40 

40 


.0 00 02. 

0 00 0-3 
n o n n u 

40000536 
40 00 00 32 

/if, nn 1 ix 71 

P 

P 

P 

20 4 

20 5 

2 0 6 - - 

40 

40 

. Uft . 

o 

0 00 05 

0 00 06 

0 00 0 7 

0 0 0 1 0 

0 0011 

40 001374 
20001715 
•*~0*0"0 - OT7±5- 
00 077777 
00 001630 

P 

P 

.... n.. 

207 

20 7 + 0 01 

40 

2Q 

o 

r. 

X 

P 

.*..... 20 9 ....... 

210 

211 

0 0 

00 

00 


...0 0012. 

0 0013 

.... . 0 0014 - 

.0 0’08X640 

00001673 
. 00 0 0-17-01- 

.P".:. 

P 

. p... 

..2T2.. 

213 

______21 4...... 

.TS’G... 

00 

.Q.Q... 

o ” 

00015 

00016 

00001705 
00 00 1710 

P 

P 

.... py...... 

215 

216 

00 

00 

o ^ 

.00017 

0 002 0 

0 00 21 

0U 001/21 

60077777 
20 077777 

X 

X 

217+001 

217+002 

0 0 

60 

20 


.0 0022. 

0 0 0 2 3 

0 002 4- 

.20 001727. 

40001550 
. -0 0-001614- 

"V .. 

P 

p. 

.217+0 03’ . 

221 

....■ • .222. 

28 

40 

00..._.. 

O . 

0 0 0 2 5 

0 0026 

“. 00027.. 

0 003 0 
00031 

40 GO 1617 
00 001644 

p 

p 

22 3 

224 

40 

00 

o 

0 0 u li i « 1 w 

00 00 1731 
40001574 

p . 

p 

p 

225+Q01 

225+002 

0 0 -— 

00 

40 


DELETE 

SAVE 

UNEQUIP 

EQUIP 

RFP- 

FP 

FREEPAGE 

ZEROPAGE 

LI3CALL 

TINEuET 

ttmerect. 

MF6LKSET 

.HF3LKREQ 

SFBLKREQ 
PURGE 
“■RMP— 
L OG 

LOGOFF 

TOBMUr." 

ASSIGN 
TAG ES-IZE 
FILESIZE 
DELAYREQ 
CF3LKREQ 
TAPEMAX 
DESTINAT 
^-DECODE 


00 
01 
02 
03 
04 
05 
06 
07 
10 
11 
.12 

13 

14 

15 

16 
T“7“ 

20 
21 
"22 . 

23 

24 

25 

26 
27 

30 

31 


<L 

'CD 

;Q) 

'Q 

.sO 

o 

-O 

:i 

O 

o 

o 

o 


o 

o 

o 

Q 


O 


O 


o 


o 



o 
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PAGE 

7 REQUEST 

EQUIP 








** * */■■*-* ***• * * ** * ^ * amp am/ amp *** * * apap ap apapap v ap apap apap apap ap apap apap apap apap apap 





231 

. 23,2 . 

ap 

.*.FnuTP.. 



* 

*..... 





233 

234 

AP 

AP 

USER CALLING SEQUENCE 

■V 

* 





235 

236 

23 7 

* ENT 

* LQAQ 

* ENA 

EQUIP » XI EQUIP = 3 

FILE OR HARDWARE NAME OR 

0 

*£ ....... 

* 

❖ 





238 

239 

24 0 

* ENG 

* XREQ 

* ... 

OTHERLUN 

LUN 

TO EQUATE LUN TO OTHERLUN 

:m. .„... 





241 

242 

-V- 

* XI 

ENTER WITH 
= 0 IF LUN IS 

UNEQUIPPED 






243 

244 

245 

.. * ..X3.." 

* 

T 

= PS A POINTER 

ERROR CODES 


'•' & ............ 

jf 





246 

247 

. 2U.fi .. 

* 1 

* 2 

LUN IS ALL READY EQUIPPED 

FILENAME DOES NOT EXIST OR 

.p tqc t .rH ARAPTF R.-T-S.A. ±S t .-...... 

* 

.M . 





249 

250 

* 3 

* 4 

LUN IN Q IS NOT EQUIPPED 

FILE IS BUSY 






• 2 51 

25 2 
253 

............. 

*' 6 
* 

NOT t N 0 U G H HARDWARE 

6 AO TAPE DENSITY OR SAD TAPE CR PACK NUMBER 

4 

¥ 





254 

2 5 

* NOTES FILES CAN BE EQUIPPED ONLY IN CONTROL NODE * 

ap ■ ap 

APAP AP-SP & AP# # #*#*#*#*#*****.#** AP# AP# AMP* AP AP# ¥4 ## V AP AP AP AP # APAP# APAP APAP ###### V ####. APAP APAP.AP# . . 


u Q 0 3 2 

u 2 50 1077 

P 

25 7 
258 

EQUIP IJO 

ERROR01 j XI 

JUMP IF ALL READY EQUIPPED 



0 0 0 3 3 
00034 

0 00 35 

• ' •2 0 0 7 7til 
03100045 
1420 Q0Q7 

P 

.25'9‘". 

26 0 
261 

LO A 

AZJ,N£ 

£NI 

.. MEM ARRAY... 

EQUIP0Q8 

7 f X2 

DO WE HAVn. AVAILABLE ADDRESSES 
JUMP If WE DO 



0 0036 

0 00 37 
.„... Q 0040 

14600001 
12200000 
.5 0 277777. 

...x.. 

262 

263 

264 . 

EQUIPOOS ENA 

SHA 

...........MU-A_ 

i 

0 »X2 

.F-RC N T P3-. X 2--.- 

COMPUTE NUMBER OF 8 WORD BLOCKS 



00041 

00042 

53 540 S0Q 
026QQ036 

p 

2.6 5 

2 66 

IAI 

IJO 

XI 

EQUIP00A, X2 




0 00 43 
00044 

."0 5 ±0 trr44 ' 

01GO 1331 

0 Q 0 45 

p 

p 

.26"?.. 

26 8 
269 

....~™~.. ISG .. 

UJP 

EQUIPO 0 B EQU 

I C : u t X i. 

ERROR05 

¥ 

....'SK IP.IF'.E‘NOUGH.ST ORAbE.*....... 

NOT ENOUGH HARDWARE 



00045 

00046 

___0 0047-. 

21077777 
20377777 
.,.n 3-50-0-1-37- 

T~... 

X 

p____ 

27 0 

271 

272 _ 

LOQ 

LDA 

_________AQ.J-.-NE~ 

BLANKS 

Q t X3 + PSA 

__E-QUIP-0-3__-. 

CAN THIS BE A SPECIAL NAME 



00050 

00051 

14577777 

20377777 

X 

27 3 
274 

ENQ, S 
LDA 

777778 

A , X3 + PSA 




0 005 2 
0005 3 

0 0054 

1410 0 u 20 
06202205 
01000171 

p 

p . 

275 

276 

277 

lN I 

MEQ 

UJP 

.H Dirt NOTH rXl... 

HARDWARE+1,2 
EQUIP 08 

MUST SE A USER FILE 



0 0055 
00056 
.0 0057 

“DfWQTnrtr 
05 10 00 12 
.2 0-0-7 7777- 

X 

27 S 
279 

Em 

IS6 
t qa 

..o. .*... 

O UTQEVj XI 

...r O-BI J.S -Y~-.. 

.* T IS’SUWETfOT A N 0 UT P U T B EY IC E.' 

SKIP IF REALLY NOT 

....LO AO—COUNT.OF OUTPUT.F IL t S - T-O . 



00060 

00061 

0 006 2 

0 00 6 3 
00064. 

17677777 
50 37 7777 
211022*34 
05611610 
0470 G 000 

X 

-f*—— 

... _ 

281 

282 

—2'8"3— 

284 

2 S 5 

ANA 

MUft 

LDQ 

ASG 

QSE 

777778 

IOUGLY >X3+PSA 

5-0*10 0 

0 

PROCESS 

PREVENT ONE USER FROM CREATING 

6 - E --- e . A CKt - 0 g ~-q- f - otl-TPU-T-Pl-LrE-S— 
SKIP IF USER HAS TOO MANY 

SKIP IF DEVICE 13 ON LINE 



0 0 0 65 
00066 

....:.00067 

.01001.331 

14600001 
.3-4.3.0-0-061-.- 

. W .. 

.x....... 

.28 c.. 

23-7 

—2-8-8_ 

OJP 

EH A 

......R A 0.- 

.ERRCR05. 

1 

...IGUGLY.,X3+PSA. 

REMEMBER THIS OUTPUT FILE 



00070 

00071 

14300001 
00 777777 

X 

289 

29 0 

ENI 

R.TJ 

1 * X 3 

GETMEM 

GET TWO WORDS FOR LUNLIST 



U 0 U f c 

0 0073 
00074 

D 6 b U tf U U U ' 

20102204 
21002234 

p 

p 

^ 9 1 
292 
29-3 

1 AI 

LDA 

LOQ 

HARDWARE, XI 
FORM + CPP 

•.LU N lT 5 T " PC I NT E R. "T Cr X 2.... 

GET THE HARDWARE TYPE 

LOAD THE INITIAL STATUS 



00075 

00076 

. :.o 0 0 7 7 

.44'0 Q~22 36" 

40200001 

-5437-7777- 

p. . . 

.x.... 

294 

295 

.296.-. 

..■. STR . 

EQUIP01 ST A 

...:.L-D-l. 

.~.FORH + EPP. 

1, X2 + LUNLST 
.RPSAPTR,X3+PSA 

".SAV E : THE "HARDWARE.CODE IN‘THE" 

LUNLIST AND FAKE CONTROL BLOCK 
..RESTORE.-T-HE.P-S-A.INDEX....... 



00100 

00101 

41300051 

12077760 

X 

297 

298 

STQ 

SHA 

A , X3 + PSA 
-15 

PUT STATUS INTO THE USERS (A) 
HARDWARE TYPE TO LOW END OF (A) 



0 010 2 
00103 

xrbuuuir 

44300100 

0 0104 

X 

p 

30 0 
301 

--- —.~A N A 

SWA 

E QUIP 02 EQU 

A,X3+PSA 
* 

SAVE IN THE USER7S A 



. '.0 010 4 

0 010 5 

...00106 

.20077777 

17600377 

12000017 

"X.~ . ’ 

. 30 2 .~ 

30 3 

.304.-. 

_____ i_oa 

ANA 

SHA 

. ETCECTNST ' 

3 778 

.1-5-____ 

LOAO THE USERS INSTRUCTION 

AND OBTAIN THE LUN FROM IT 



0 010 7 
00110 

35377777 

40200000 
rr o n n n n n 

.X. 

30 5 
306 

..5? r, ~? . 

SS A 

ST A 

_ _ ... „ t r a 

LUNLIST,X3+PSA 
0 ,X2 

MEGER THE LUN AND LUNLIST POINTER 

PUT THE ELEMENT INTO THE LIST 


0 till 1 
00112 

t? 0 c u u U U U 
40300107 

X 

0 Ur 

30 3 

J x A 

STA 

LUNLIST,X3+PSA 





o 
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REQUEST 


J 0113. 

0 0114 
00145 
00116 
00117 
0 012 0 
00121 
0 0122 
00123 
00124 
00125 
0 0126 
00127 
0 013 0 
00131 
0 0132 
110X33" 
0 013 4 
00135 
00136 

a 013 7 
0 0140 
0 0141 
00142 
00143 

.0 0144 

00145 
00146 
00147 
00150 
00151 
00152 
00153 
0 015 4 
00155 
0 0156 
0 015 7 
00160 
00161 
0016 2 
0 016 3 

0 0164 
00165 
0 0166" 
0 0167 
00170 


20200001 
03377777 X 

14300003. 

00700071 X 
44200001 
53500000 
20200001 
14277770 
21202237 P 
41300000 

.15 30 0 0 01.—. 

02200123 P 
54300077 X 
12000001 
03200114 X 
20377777 X 

12 0 7 7 763.. 

17607777 

-44 10 0 0 06. 

01000131 X 


25300103 

03100171 

20300112 

04"W0T6"5". 

20100001 
12 077-76 0- 
03500164 
14300001 
-00-70-041-6“ 
5360 0000 
2010 CO02 

35077777. 

40100002 

-53-704-600 . 

20300006 
37077777 
12 077 776* 
3530 0 Q 04 
13077747 

”2"OTO"£nJ'0"2 . 

01000076 


00171 
00172 
0 017 3 
0 0174 
0 0175 
00176 
00177 
Q 0 20 0 
00201 

0.02.0.2- 

00203 
0 Q204 
00205 
0 0206 
00207 
00210 
00211 
00212 
00213 
00214 
G 0215 
0 0216 
J 0 217 
00220 
0 02 21 
0 0222 
0 0 223 
0 0 224 
0 0225 
00226 


20100001 
5350 0 000 
02500143 
14600003 
01077777 

21002453 
.....0340 0 336. 
21002152 
03400506 
12 07 7755- 
C 4 47 7 753 
01000202 
20 377 777 
03201323 
.20.377777... 
01000211 
25200003 
33 30 Q 137' 
13400000 
03000326 

20200001 . 

5360 0 QUO 

.02.6.0. 0 20.4. 

14600215 
01001751 
0 3lu 0 221 
1460 0002 
40 277777 

.DTWZiT6~ 

21104011 

2040 4006. 

04500000 
03201516 
45*70 G O 04 
41104011 


.30 9. 

310 

.344. 

312 

313 

344*'— 

315 

316 
31 ( 

318 

319 .-. 

320 

321 

322 

323+001 

323+002 

323+003 

32-6-. 

327 

326 

*329 — 

330 

331 

332 . 

333 

334 . 

335 
33 6 

-3'3'7~— 

338 

339 

~j*nr.. 

341 

...34.2 - 

342+0 0.1 
342+002 
“3'4*2'+*0’0'3" 
342+004 
342+005 

.3¥2+W6~ 

344 

... 3 . 4 . 5 . -- 

34.6 

347 

-3-ve— 

349 

350 

"354- 

352 


LDA. 

AZJ,LT 

.ENI.~ 

RTJ 

SWA 

TAI .*. 

LDA 

ENI 

.LDQ 

STQ 

.INI. 

IJI 

LOI 

SHA 

AZJ,G£ 

LDA 

"SHA". 

ANA 

. SWA—.- 

UJP 


EQUIP03 • • LDAQ— 
AZJ,NE 
LDA 

.. TOP"". 

EQUIP04 LDA 

-.-.-SHA—. 

AQJ,NE 

EQUIP05 ENI 

----- -R-f-j - 

TAI 


ST A 

TAI. 

LDA 
LPA 
SHA" 
SSA 
SHAQ 
TUI. 


E QUIP06 
EGUIP07 

ERROR03 
ERROR _ 

EQUIP08 


EQUIPOS N 


EQUIP08Q 


ERR02 
SRC HERR 

EQUIP09 


LDQ 

.AQ.J-j.£Q..- 

LDQ 

ASJ j EQ 
"Sri A 
ASE j S 
UJP 

.ETTA"- 

AZJjGE 

-LDA_ 

UJP 

LDAQ 

SBAQ. 

SC AQ 
AZJ,EQ 

LDA- — 

TAI 

IJ.Q.. 

ENA 

UJP 

AZJjNE 
ENA 
ST A 

UJP- 

LDQ 

..LDA. 

QSE,S 

AZJjGE 

-J-N-Q—- 

STQ 


o 


EQUIP 


1 j X2... 

X REQEND 

3,X3... 

GET MEM 
1 j X2 

X4+CN6LK. 

1 »X2 
-7,X2 

F0RM + 77X2. 

0 ,X3 

.1-J-X3— -— 

*-3,X2 

RP3APTR, X3+PSA 
X REQEND 

UOESTLP,X3+PSA 

.-12 . 

7777B 

EPPjXl+CNSLK- 

X REQEND 

*A,X3+PSA 

EQUIP08 

LUNLIST,X3+PSA 

'EQUTP07. .. 

0+1, XI 

—=-15 -- 

EQUIP06 
1 ,X3 

-e-ETtTEtt- ! - 

X 2+LUNLST 
1+1,Xl+LUNLST 

■""S"XT2"3.". 

1+1,Xl+LUNLST 

X 3 

EPP,X3+CNBLK 
81T 2 0 

-1 

CPP,X3+CN8LK 
-24" 

T71T7X1TOJNCST." 

EQUIP01 

. 0 +i7x 1 

XI 

■■EQUIP04rXir——• 


X REQ.ERR 
BCOMT 

-£-Q.UIP4§I- 

BCQMSF 

EQUIPHSF 

- i'8 —■——“ 

777538 

SYSCK7X3+PSA... 

ERROR02 

-NAME LIST. ,X3-*-PS-A.- 

EQUIP 08Q 
2+1,X2+NAMELST 

A*, X3 + PSA.— 

0 

EQU IP 12 

0 + X,X 2+NAKEL ST . 

X2+NAMELST 
EQUIP D8N,X2+NAME1 
*+2 

SRCHFDR 

•EQUIP09 

2 

11, X2+PSA 
SRCHRTN. 


DOES.THIS UNIT NEED A CONTROL. 

8LGCK JUMP IF NOT 

NEED.8 WORDS FOR THE CONTROL — 

9LCCK 

SAVE THE CONTROL BLOCK ADDRESS 
SAV E THE C0NTR0L BLOCK PCINTER 
LOAD WORD FCR LATER 
MOVE 8 WORDS 

MOVESTANDARDCONTROLBLOCK 
PICTURE TO THIS BLOCK 


POINT TO THE USER AGAIN 
IS THIS A UNIT RECORD CUTPUT 
DEVICE WE ARE DONE IF NOT 
GET DESTINATION ADDRESS 


JUMP IF A NAME 

POINT T O THE USER*S LU NLIST_ 

GET THE LUN FROM THE LUNLIST 

..ELEMENT."..-..... 

JUMP IF NOT THE PROPER ONE 
GET A TWO WORD LUNLIST ELEMENT 

NEW LUNLIST POINTER TO X2 
LOAD FROM OLD LUNLIST ELEMENT 

REME M BER.THIS.IS.EQUATED.TO. 

ANOTHER UNIT 

DON T R 0 L BLOC K PC I-NTER TO X 3. 


*S0R“8T"T"TC- BIT “19- 
FILE STATUS TO Q 


LOAD POINTER TO THE NEXT ELEMENT 
POINTER TO XI 

*LO GP~?HRU ' THE 'W HO LE L U NtTUT~ .. 

LUN IN Q NOT EQUIPPED 


DOES THE USER WANT A TAPE 
...JUMP—IP—SD— ---.- -. 

DOES THE USER WANT HIS OWN DISK 
DISK UNIT 

IS THIS A % FILE .—.— 


.MUST.BE.rN"DQNT"RO"L.MODE... 

IS THE FILE ALREADY EQUIPPED 

LOAD THE NAME FORM THE NAMELIST 
-•"AND COMPARE TO THE ONE WE WANT * 

JUMP IF NAME IS ALL READY EQUIPEO 
.GET.THE NEXT.POINTER... 

iX_. LOOP..THRU..-THE.WHOLE LIST-.. 

ENTER THE RETURN ADDRESS 

JUMP IF THE NAME EXISTS 

.ERROR CODE TO. THE.USERAS.XI. 

LOAD THE BUSY COUNTER 

.LOAD THE FILE PROTECTION WORD. 

SKIP IF NOT BUSY 

JUMP IF NOT FILE PROTECTED 

INCREMENT.THE.BUSY COUNTER.*. 

AND STORE IT BACK 




































0 . 

A vib EM 6 LE R/C 

IS 3 V 1.0 

0 9/24/74 0122 

PAGE 

9 REQUEST 


0 0 227 

0 0 230 

. 0 0 231.. 

14300002 
0070 0147 
.21 PQ 0 202 . 

X 

.x.... 

38 2 

38 3 

.3.84.. 


ENI 

RTJ 

.loq. 

CD 

0 0232 

0 0233 

4 0 20 0 231 
53600000 

X 

385 

38 6 


ST A 

TAI 

CD 

u u 2 o 4 
00235 
00236 

4120 0 0 0 0 
25104000 
45200002 


38 7 

388 

389 


STQ 

LDAQ 

ST AQ 


0 023 7. 

0 0240 
...0 0241 

14300 003' 
00700230 
.2-110 4-0 0 6 - 

X 

390 

391 

.39 2 . 


.ENI. 

RTJ 

._j.on.. 

O 

0 0242 
00243 

13000005 

12400023 


393 

39 4 


SHAQ 

SHQ 

o . 

O U 244 
00245 

0 0246 

4130 0u Ub 
41200001 
12077772 


.39 5.. 

39 6 
397 


.STQ. 

STQ 

SHA 


. 0 0247. 

00250 

.0 025-1. 

4420 D O 01 
20 104010 
--21-104-0 07-. 


.398.“ 

399 

.4 0 0 .-.- 


SWA 

LDA 

.L-OQ-.. 

o 

00252 

0 0253 

.no p c /. .. 

03200260 

35077777 

p 

X 

401 

402 

i, n ri „ . 


AZJ,GE 

SSA 

o 

U U Cz> 4- 

00251s 

0 0256 

tU iu ^ uIj 

14600000 

44300006 


4 0 4 
405 


^ 1 A 

ENA 

SWA 


0 0257 

........0-026 0 . 

14 70 0 0 00 

0 0260 

-4~130-0-0-0-7. 

p 

40 6 

40 7 

.40 3. 

EQUIP11 

.eni 3 ~ 

EQU 

.STQ . 

O ' 

00261 

0 0262 

.. :i n o,r 

15577776 

41300005 


409 

410 


Inq, s 

STQ 

o ... 

0 02 b 5 
00264 
00265 

'2 0 U u 0 c 63 
05500000 
20002234 

X 

p ■ .. 

411 . 

412 

413 


L D A 

QSG,S 

LDA 


0 0266 
00267 

.... 0 .027 0 . 

35 0777/7" 
21104006 
-1-3-0-0-0-0 01- 

I - 

414 

415 

. 444 _ 


.S'S'A. 

LOQ 

.SHAQ_ 

o 

0027i 

00272 

12000027 

21104010 


417 

418 


SHA 

LDQ 

o ... 

. 0 02/3 

00274 

00275 

03 60 O u 00 

35077777 

40300004 

X 

419 

42 0 

421 


QSb , S “ 
SSA 

STA 


0 0276 
00277 

___Q.o.34-0-. 

12 4/7747' 
04777777 
21104005. 


™ .. 

^ C. c. 

'42 3 

.. 


SHQ 

QSE 

_inn_ 

o * 

0 0301 
00302 

..■ , t , ,.. , A n A “7 .... 

14600000 
453Q 0 002 


TU 7 

425 

426 


ENA 

STAQ 

O - 

u 0 3 u 3 

0 0 30 4 

0 0 305 

41 30 0 U 01 
54102241 
14 30 10 01 

p 

42 ? 

42 8 

42 9 


_g.j-.Q__ 

LDI 

ENI 


.0030 6 . 

00307 

__0Q31Q.. 

00 70 0 240' 
2110' 0 141 
-4010 0 30 7 

X 

X 

43 0 

H r *S' 1 

.432..... 


“RTU “ 
LDQ 

STA. 

o* 

00311 

0 0 312 

201777/7 
12 40 0-011 

4 “2 *1 ft A V* A “f 

~X . 

ha <S 

43 4 


LOA 

SHQ 

a- 

0 0313 
00314 
00315 

lo 'ti f 0 tl XT. 

21200-001 
45 30 0.0 00 .. 


43 5 ' 

43 6 

43 7 


LOQ 

STAQ 


.....00316. 

0 0 317 

_____0 0320 . 

13000030 

5 o 5 O' 0 0 0 0 
.0-04. 


43 8 

4 3 9 

.. 440 .. 


“75TOQ' 

TAI 

.LOQ . 

O'" 

0 0 321 

0 0 322 

41100205 

12000011 

X . 

44i 

44 2 


STQ 

SHA 

1 ; 1 : 

o 9 ._ 

0 u .5 2 o 

00324 

0 0 325 

17 ou 0 u17 
44130321 
01002124 

X 

P 

..• ... 

444 

445 


'AM'A 

SWA 

UJP 

Q ....... 

0 0326 

... 1)0327-. 

20300310 
5350 0 000. 

X 

446 "• - 

447 

.. 4_4_8_:_. 

EQUIP12 
.EGU.IP14 . 

LDA 

TAI 

o 

00330 

00331 

20200002 
3610 0 001 


449 

45 0 


LDA 

SCA 

a c r 

o,„ 

U U Jv)c 

0 0 333 
00334 

u jouy'uur 

02500146 
20 10 0 000 

p 

.4-5±—~ 

452 

453 


■■■'Abb 

IJO 

LDA 


..00335. 

"0100 0 327. 

p. 7 .:... 

454 


.UJF r ” 


o 


a 


o 


EQUIP 

2>X3 . - - 

GETHEM 

-NAMELIST,X2+PSA 

NAMELIST,X2+PSA 
X2+NAMELSI 

.0,X2 +NAMELST 

CORE+FDSYM,Xi 
2,X2+NAMELST 

.3., X3.... 

GETMEM 

—.CORE+FDEPP,XI 

5 

24-5 

-EPPyX'3 + C N 8 tK. 

1,Xb+NAMELST 

-5 

T,X2+NAM ELS T. 

GORE+FOODATE,XI 

.-.-G-OR.i-+-F43-T-F-LrXi. 

EQUIP 11 
8IT22 

-OGRE + FDCDATEtX'T 
0 

£PP,X3+CNBLK 

o..... 

* 

.-T--F L, X3+- CNBLK.. 

8 LKR,X3+CN8LK 

“trPB---:— 

0 

F GRM+CPP 

w .. . 

CORE+FDEPP,Xi 
2 3 

C ORE+FDCOATE,XI 
0 

AU3 

CPP,X3+GN8LK 
-2 7T~ 

77777B 

GORE+-FDLP,X4-- 

0 

COREP,X3+CN8LK 

LPyX'S+CNBLK .. 

SRGHQB,Xl+PSA 
1 ,X3 

"GTErffEH* ~ 

LUNLIST,Xl+PSA 
-LUN4_XS.T-,-X4-+T?-SA— 
T2,Xl+PSA 
9 . 

IS 

1,X2+NAMELST 
0 j X3+LUNLST 

.24. 

X 2+GN8LK 

.GPP,-X2+€N8LK- 

A,Xl+PSA 
9 

H 1 MASK 
A,Xl+PSA 
SRCHRWT 


GET 4 WORDS.FCR.NAMELIST.ELEMENT 

LINK.THIS FILE.INTO THE.NAMELIST 

QUEUE 


GET THE FILE NAME 

AND PUT INTO THE NAMELIST 

ELEMENT........~.'. 

GET 8 WORDS FCR A CONTROL BLOCK 

GET.T HE.S T A TU S.FR OM.T HE.FILE. 

CLEAR THE UPPER BITS ON THE 
EPP WORD 


-SAVE-TN THE 'QGNTROtr~BtOC'K~ . 

SAVE IN THE NAMELIST ELEMENT 
RESTORE THE CNBLK POINTER 


ANDSAVE IN THE NAMELISTELEMENT 


LOAD.THE.FILE.LENGTH .-. 

JUMP IF THE DATA IS PRESENT 
SET THE RECOVERY REQUEST BIT 

AMD STORE.IT SACK . — - 

CREATE A ZERO LENGTH FILE 


SET^TTLE.LENGTH.TO'.ZERO 


-SAVE-IN.THE.CONTROL.BLOCK. 

SET UP BLOCKS REMAINING 

" tO A D~T H E~ tQA Q-~pfvr NT. 8 TT - FOR-THE 

STATUS SKIP IF NOT EMPTY 
LOAD POINT AND END OF DATA BITS 

“REHETTB E"R.TH IS.IS.A.SAVED.FT Lt. 

GET THE FP BIT 

MERGE.WITH.THE.REST.Of- THE--- 

STATUS 

IS THE FILE ABNORMAL 


SET THE SIT IF SO 

...PUT STATUS IN THE CONTROL BLOCK . 
ONE WORD OP BATA NOT PRESENT BIT 
SKIP IF DATA NOT PRESENT 

--GET -THE--LOAD POINT BLOCK.-. 

SAY BLOCK NCI. IN CORE 

“SAVE" THE LOAD POINT BLOCK ' 

GET THE PSA POINTER 

TWO WORDS FOR A LUNLIST ELEMENT 


LINK INTO THE LUNLIST 
GET THE LUN 

MERGE WITH THE POINTER 

GET THE CONTROL BLOCK ADDRESS 
SAVE THE NEW ELEMENT 
.CONTROL..BLOCK FCINTER TC X2. 

.GET THE.STATUS.SITS-.—.— 

PUT THE STATUS IN USERXS (A) 

“JUST HARDWARE.TYPE 

SAVE IN USERXS (A) 

WRITE THE FILE DIRECTORY BLOCK 


LUNLIST,X3+PSA LOOK FCR THE LUN EQUIPPED TO THE 

X1+LUNLST NAME 

1+1, X 2+- NAM EL ST .LOAD THE CONTROL BLOCK POINTER 

i,Xl+LUNLST AND COMPARE TC THIS LUN 

•±—————_ SK . a v P _ i p™ N . e _ MAT .e.H——— 

EQUIP05,Xl+LUNLST 

0,X1+LUNLST LOAD POINTER TO TNE NEXT ELEMENT 

E QU I P ITT - . . .. 
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REQUEST 

EQUIP 





0 0 336 

.... 0 0 337. 

0 0 336 
20377777 
-14 70 0 0 0 3 

P 

X 



46 6 

457 

,.45.£. 

EGUIPMT 

EQU 

LD A 

E N U. 

. # . 

I 2f X3+PSA 

.3.... 

LOAO THE DENSITY CODE 



0) ' 

U0340 

0 0341 

03601132 

77730000 

P 



45 5 

460 


AQJ,GE 

VFD 

ERROR06 

A12/DINT 

JUMP IF A PARAMETER ERROR 



Q 

Ouo 4 2 
00343 

0 0344 

2 0 577 7(7 
13077771 
12400006 

X 



4b0+0ux 
460+G02 
46 0 + G 0 3 


EDA 

SHAQ 

SHQ 

U TA P cnAX fXo + PS A 

— 6 

6 





. ...".00345. 

00346 

...0 0347. 

1760 0077 
17700077 
. i5 4 7 1111 




4 6 0 + 0 G 4 
460+005 
.460+006. 


ANA 

ANQ 

XOA.S.. 

.778. 

778 

.7 77778. 




O ' 

00350 

0 035 1 

53040000 

03201331 

p 



460+007 

460+U08 


AQA 

AZ J,G£ 

ERROR05 

JUMP IF HE CANNOT GET A TAPE 



o .. 

0 035 2 
00353 

u u 33 2 
14677777 
21077777 

p 

X 

X 



491 

492 

493 

iPHT 3 

EQU 

ENA 

LDQ. 

CONWAIT 

BUSY 

CONSOLE TYPEWRITER WAIT 

LOAD COUNT OF OUTPUT MESSAGES 




.0035 4 

00355 

.0 0 35 6.- 

"05700005 
0100Q357 
-01-077 77 7- 

p 

v. 



494 

495 

....,....£*..0.6... 


QSG 

UJP 

,1.1. ID. ... 

5 

* +2 

.Q,WTrp,y. .. .'. 

SKIP IF TOO MANY 



o 

0 0 357 
00360 

20300046 

14177777 

X 

X 



497 

498 

- n n 


LOA 

ENI 

Q»X3+PSA 

T PUNITS,XI 

.. 7 7 7 7 7ft . .... . . 

GET THE TAPE NUMBER 

ENTER THE NUMBER OF TAPE UNITS 



o _ 

U U Jo 1 

0 0 362 

0 0363 

1 4 3/ ( 77 f 

03301132 

03001132 

P 

P 



HV j 

500 

501 


t N U > S 
AZJ,LT 
AZJ , EQ 

f ( f f ( a 

ERROR 06 

ERROR06 

NEGATIVE NUMBERS ARE ILLEGAL 




“.0 0 364'. 

0 0365 

.00366. 

"0*6X77777 
01000370 
-.14 67 7 777 

"X. 

p 

x. 



.5XT2. 

503 

. 5.0j) .. 

• ■STMT-NAIT- 

"MFCf. 

UJP 

cfvJA. 

.T'APEi rST, i.. 

* +3 

mtwait 

IS' ANYONE' ELSE USING THIS TAPE 

WAIT FOR THE OTHER TAPE TO BE 

.MDUNTF-D..... 



o 

0 0 367 

0 037 0 

0iG Q Q 355 
14100360 

X 

X 



505 

5 0 6 


UJP 

ENI 

RHTERH 

TPUN ITS,XI 




o 

003/1. 

00372 

0 0 373 

14bu U Ouu 

0 610 0 3 64 
01001331 

X 

p 



5u ( . 

508 

5 09 


*£*Nh. 

HEQ 

UJP 

T APELIST j1 

ERROR 05 

....DO Wh hAVfe A FRfct TAPc DRIVE' ' ... 

NOT ENOUGH TAPE UNITS 




.0 0374. 

00 375 

. ....0 0376. 

'2130 Q 35? 
4110 0 372 
14 67 7 777 

"X. 

X 

. 



.5TO~. 

511 ■ 

.5X2.... 


LDQ 

ST Q 

ENA.-. 

-g",X'3"+PS''A .. 

IAPELIST,XI 

_tphntchg. 

.Derail THE TAPE NUMBER ........ 

SAVE IT IK THE TABLE 

... EN-T-E.R-—T-APE.KO-UN-T-I-N-G .CHARGE.-.-. 



o 

00377 
0040 Q 

34377777 

14600001 

X 



513 

513+001 


RAD 

ENA 

t XTOT AL,X3+PSA 

1 




o. 

0 0 401 

0 0402 

0 0403 

'34'3a 0 34'2* 
20002147 
14200035 

X 

p 



6 !>. +■ 0 Ci ! 2 

514 

515 


Rmu. 

LOA 

ENI 

U T A P fc. M A X ? X 3 + P S A 
SCOTAPE 

HTHT,X2 

rNCRtA'Sfc itih USERS TAPES 




0 0 404 

. 0.040 5. 

0 0 40 ( 

4 0 0 0 216 0 
-5-3 20 0 0 3 0 ■ 

p ■ 
p 



51 "6 

51.7 

_ 5X8 ___ 

.W'SFWYSRR" 

"EQU. 

ST A 

_T£A_ 

¥ . . —.. 

8C0IDN 

. X 2 ___ 

SAVE THE STUFF FOR THE OPERATOR 

HARDWARE TYPE T C A-........... . 



o 

00406 

00407 

. . ... i*s n i . 4 .ft..,.. 

4 Q 3 0 0 3 2 4 
1420 0 0 0:6 

X 



519 

520 


ST A 

ENI 

A, X3 + PSA 

6 , X2 

.ft. .. .. .. , ... , 

SAVE THE HARDWARE TYPE 

PRINT A 7 DIGIT TAPE NUMBER 



o _ 

u U 41 u 

0 0411 

0 0412 

14 bO uU’JD 
51077777 
13000030. 

X ’ 



b*:l 

522 

3 d 3 


t N A 

OVA 

SHAQ 

0 

D 10 

24 





~~ QU413 

00414 

... 0..0.41.5. 

42 410 7 IIS" 
0 4 50 o a 3 0 
0.2 60.Q.41.11. 

.p. 

JP . 

.TT 2 T 6 X 

.r 

.5Z4 ~ 

52 5 

e o ti 

... O £, O' ..... 


"S'ACH" 
QSE* S 
i v in . 

M TNUH, X2 

0 

_ *-5, Xg_____ 




o c 

0 0416 

0 0417 

.— — .q.042'0— 

00421 

00422 

14 60 G 060 

0 2 60 0 413 
14277775 
2137777? 
1460000Q 

p. 

X 



5 2 7 

52 3 

5? 9 

53 0 

. 5;31 .. 

——— ——— 

ENA 

IJO 

“EN€—— 
LDQ 

ENA 

6 0 S. 

+-4,X2 

-- 

TERMINAL,X3+PSA 

. 0 . 

BLANK LEADING ZEROS 

• • -PRINT 'OUT THE 'TERMINAL NUMBER 

_ OF THE USER _ , _ _ _ 




..~.0 0‘42 3. 

00424 

. .... 0 0425. 

13 00 0 OU3 
42410723 
0220 0422 

p 

.p_ 

02164 


5 3 2 

53 3 

_ ....S-3-4- . ... 


'SFTAQ 

SACH 

TJT 

MTTERM+MTTERML-1 
.. »-3 ,„X 2. 

. , X 2 



c . 

10 w 

o, ... 

0 0426 
00427 
00430 
00431 
00432 

253 77777 
53700000 
13000G30 
53 60 0 0 0 Q 
13000030 

X 


—— 

53 5 

5 3 6 

537 

53 8 

535 


LDAQ 

TAX. 

SHAQ 

TAI 

SHAQ 

TTFCHR,X3+PS A 

X 3 
—24 

X 2 

24 

X3 POINTS TO THE FIRST CHARACTER 

-IN THE TTY INPUT--STRING™. 

X2 IS THE NUMBER OF CHARACTERS 

USER MESSAGE LENGTH SACK TO (Q) 

_____ 

-. ... * 


~~~... 00433.. 

00434 

.. : . 0 043 5 ... 

T^d'OTTOT?'"' 

05200073 

...0.1.00.0.4,4.3... 

.p.. 



■.ttsu. 

541 

_ _ 942 . • 


~£m~ 

ISG 

iJJP.... 

773 — ■ 

MAXMESS-1,X2 
M.O.VE.C.HAR. ... 

...RETURN.FOR.THE.CONSOLE;"............. : .. 



O . 

0 0 436 

0 0437 

14200073 

010OO443 

o n ~2 n n n n a 

p 



543 

544 


ENI 

UJP 

f n a 

HAXMESS-1,X2 

MOVECHAR 

__0 X X'3——^ 

Xb 

9 




o.. ... 

J U 44 U 

00441 

00442 

dUoUUUUU 

53700000 

12000011 




546 

547 


LU A 

TAI 

SHA 

NEXT POINTER TO X3 

CHAR TO LOW (A) 



f o 

00443 

. 0 0 .444 . 

. "00443 

42410724 
0 2 611 0 440 . 

p.. 

p 

. p, . 

02165 

0 

. 5WQ~ ... 

549 

.55.0.... 

HOVECHAR. 

EQU 

SAGH 

IJQ. 

MTNOTE, X2 

.. ±“4-,,X.2__*__ 

SAVE THE CHARACTER IN THE MESSAGE 
____LOOP.THRU ALL THE CHARACTERS. 



O"; 

0 0443 
00446 

157OQ033 

11010672 

a n /r K i 

p 

02156 

2 

551 

552 


INQ 

ECHA 

,ru t 

MTLNTH 

MTMSG 

ii. 7 V O 

ADD IN LENGTH OF THE STANDARD 

MESSAGE 



Q,. 

u U 44 / 

0 0 45 0 

TXLuU^yr 

01077777 

r .. 

X 



. o 

554 


.trNx 

UJP 

OPMSG 

cN lx K Hit Kt. 1 U K K AuuKto o 

GO PRINT CUT THE MESSAGE 




o 
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11 REQUEST 

EQUIP 


a. 


0 0 451 

0 045 2 
.....0(145 3. 

14600001 

34077777 X 
. 1 . 4 . 3.11 (in Hi.-. 

555 

556 

...... (5 K 7. 


ENA 

RAD 

PKI T. 

1 

SCREAM 

.i . y 3 ........ 

MAKE THE CONSOLE CRY 

.c p T. 9 .W OR D S.FOR. 1 U N i.T S T. 


® " 

0 0454 

0 0 455 

00700306 X 

53600000 

558 

559 


■Li IN X. 

RTJ 

TAI 

JL 9 A vj 

GETMEM 

X 2+LUNLST 

U L. 1 C. n V/1 S U U i V» I' la W IT li X -w I 

LUNLIST POINTER TC X 2 

Q 

Q .. 

0 0 45b 

0 0 457 

0 0 460 

14300003 

00700454 X 

54300127 X 

56 0 

561 

562 


ENI 

RTJ 

LDI 

3 , X 3 

GETMEM 

RPSAPTR,X3+PSA 

GET 8 WORDSFORA CONTROL BLOCK 

SAVE THE CONTROL BLOCK ADDRESS 
RESTORE THE PSA INDEX . 

.. t: G 


0 0461 

0 0 462 

0 0 463 

21300406 X 

04700014 

0 1(1 ft (1 466 .. P. . 

563 

564 

. c. 


LDQ 

QSE 

11 ip. 

A 5 X 3 + P S A 

HTMSF 

. ¥..+3 .. 

LOAD THE HARDWARE TYPE 


O ' 

0 0464 
00465 

40 177777 X 

01000467 P 

566 

567 


S 1 A 

UJP 

MSFBLKjXI 
»+2 


O 

O 

0 0466 

0 0 46 7 

0 047 0 

4 0 177 •TIT" .X"..*.... 

53 50 0Q00 

12400017 

....56*6. 

56 5 
570 


ST A. 

TAI 

SHQ 

TGLKLIST 9 XI 

X1+CM6LK 

15 


..... O 


0 0471 
00472 
n n 47 3 

41100006 

53040000 

3 k, nn .n i c. 3 >._ v... 

571 

572 

... .K. 7.3 . 


STQ 

AQA 

.CCA.. 

EPP,XI+GH 8 LK 

.BTTJJ .......... 

SAVE THE HARDWARE TYPE IN THE 
CONTROL. BLOCK AND FORM THE WORD 
. err TAF FQUATFD TO PRF UF NT . 


O ' 

0 0474 

40200001 

574 

575 

3f 

... 

STA 

...© Jt.1 ££ O . ... . 

1,X2+LUNLST 

US FROM GETTING ANOTHER. CNBLK 

FOR THE LUNLIST 

O 

o... 

0 0 475 

0 0 476 
00477 

14477760...... 

4 0 10 0 00Q 

20300336 X 

.....5*f6 * 

577 

578 


£N A j S ' 
STA 

LD A 

777600 

A CCWQRD> Xl+CNBLK 
I2 } X 3+PSA 

INDICATE THAT THE TAPE IS NCT 

MOUNTED 

LOAD 1 THE DENSITY CODE 

...:....._...iO 


..Q'05 0 0. 

0 0 501 
00502 - 

40100007 

1470 0 000 

.411000.04 . 

.q ?0 . 

58 0 

.581- 


STA 

ENQ 

STQ.. 

TFL,X1+CN3LK 

0 

.. cPP. X-i + ONALK . 

AND SAVE IT IN THE SLOCK 

.C L F A R.IHF.ST AT U S..... 


o ~ 

0 050 3 

0 0 50 4 

4110 0002 

00 777777 X 

5 8 2 

5q 0 


STQ 

RTJ 

CQREP,Xl+CNBLK 

P CHARS 

PREVENT REWRITE ON UNEQUIP 

SCRAP THE TTY INPUT STRING 

O 

o .. 

u uPoy 

0x000x0 4' P 

.5'8'4"'" 

565 

5 ft 6 


U ij P 

" "" ""EQUIP 02 " .. 

""" bO ' F'lNTSH "'LINK I'NG THE LUNLIST ... 

o 



.au5Tr6'. p... 

.. *' '517. 

E QU IP MS F EQU . * . •. - 

* * ¥¥ ¥¥¥¥ ¥¥ ¥¥¥¥¥¥ ¥■¥¥ ¥*«***¥¥ ¥ ¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥.¥ ' 

¥ ¥ ¥■¥ ¥ ¥■¥■¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥■ ¥¥¥¥¥¥■¥¥¥¥¥¥¥¥¥¥¥¥¥ *¥¥*■*¥**-¥*¥¥* 


o 

o .... 

0 0506 

Q 0 50 7 

0 0510 

01001331 P 

14600352 X 

21000353 X 

59 0 

593 

594 

UUP ERROR05 KLUGE TO KEEP MSF PROP WORKING 

** ****** ******** **9-** *********** ********** *************** ********** ******* 
** ** * * * * ** ***** ****‘**-******************‘***^ 

EUA CONWAIT CONSOLE TYPEWRITER WAIT 

' LOG BUSY . LOAD COUNT OF OUTPUT MESSAGES 

O 

...:.; 0 


.■. 0 0 '5 IT. 

00512 

0 0 513 

0 5 70 0 Of’5 ....~... 

01 00 0 514 P 

01000367 X 

5 95 

5 96 
. . 6 q 7 


Ql b 

UJP 

-UJP 

s 

^ 4-2 

SKIP IF TOO MANY 


O . 

0 0 514 
00515 

14177777 X 

20300374 X 

59 S 
599 


ENI 

LU A 

MSUN IIS}XI 

Q» X3 + PSA 

LOAD THE PACK. NUMBER 

0 

o „ 

.00516 

0 0517 
00520 

147/77/7 

03301132 F 

03 0 0 j 132 P 

. j 

601 

L. ij 2 


ENQ 

AZJ,LT 
AZ J,EGl 

7 / ( < f\‘. 

ERROR 06 
- RROR 0 6 

NUMcERS MUST EE POSITIVE 

. . . . 1 ___________ 0 


. UTT5ZI . 

00522 
.. 0 0 52 3 

77730000 .. 

Q 617 7 7 7 7 X 
flipqn5?5 P 

6 0 3 

6 0 4 

■. r il 5 


VFD 

MEQ 

jj jp,. 

. Ail/DINT . 

H S F N U H 8 f i 

^ + 2 - ..... 

DOES AN i ONE cLLE WANT THIS PACK 
.... u A I f FOR ThP r T r-E 4 PACK TC BE -.-. 


o~ 

0 052 4 
00525 

.,. e\ . 

01000365 P 

14 IQ 0 514 X 

<&. .jT A:.» O . EX J X JT&.. •• 4 ... » , » wy , 

60 6 

6 Q 7 


UJP 

ENI 

STMT WAIT 

HSUM IIS}XI 

HO,UNTED' 

LOOK FOR AN EMPTY ENTRY 

■ / 0 


u 0 52t> 
00527 

0 0530 

1 ; r Ol! .. ; - 

0610 0 464 X 

01001331 P 

6 6 ' i 

6 0 9 
610 


r’ A 

MEQ 

UJP 

MSF3LK} 1 

ERROR05 

NOT ENOUGH HARDWARE 

........ O 


.0 0 531. 

00532 

. 0 0533- 

■.2T30 0"'5r5'. X . 

41100522 X 

?Q 0Q.2150... "..-.... 

..75T T~ . 

612 , 
. 54 3 .,; ... 


t m . 

ST Q 

.4 DA. 

. Q } X3 +-PS A 

MSFNUM 8 }XI 

.gCOPACK ..-.. 

LOAD THE PACK NUMBER'"TCAIN. 


O'""' 

00534 

00535 

14200014 

01000404 P 

614 

615. 


ENI 

UJP 

HTMSF7X2 

MSFMTSHR 

GO SHARE SOME CODE 

0 

1 0 * WiW: 

o... 








:.... O 

' . ' ■ '■ ; ' * ; , : . " " , ,, . , ' ' ' '' ' V ' ,. ■ ' ' ■ 

o 








O 

a. 








.:. .: .:. :Q 


Q -- - - • - '* '■ * O 



CY.'Y YY. : ..'. : .. v" . ?' ' : Y!.: : ..v “.. ; 3 .O 
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REQUEST 


UNEQUIP 


00565 
00566 
0 0 56 7 
00570 
0 0 571 
00572 
00573 
0 0574 
...0.05X5... 
00576 
0 0577 
0 0600- 
0 0 601 
0 060 2 

00 603. 

00604 

.00605 

00606 
00607 
0061Q 
0 0611 
00612 
00 6X3” 
0 0614 
.00615.. 


00616 
0 0617 

"0 0620. 

.0.0621. 

0 062 2 
0 0 623 


—5-3-1-0.0-0-0-0- 
14300001 
00777777 
•20 10 0 0 01 
53500000 
05 10 0 0 01 

. 0TWQT36'" 

03200604 
_XZ.Z443-H01L. 
54300463 
15377777 
- 2 0 30 0 G 01 • 
53700000 
0270 0 755 

.7773¥'0"0'0. 

25100002 

.0 0 777.777 

77740000 
54300576 
20100006 
12 OQ 0 011 
17600017 
53 60 -3 D 0 0" 
77 73 0 0 0 Q 

. 01.2.0. .0.61.5. . 

0 0 616 
01000706 

. 0 0 617' 

01000645 

00620 

. 0T00'0"6'43" 

00621 
. 0 . 1 . 0 . Q..Q,.Z16.. 


EL 
P 
P 
P 
P 
P 
P" 
P 
P 

00622 P 
01000772 P 
00623 P 
01000573 X 


619 

620 
621 
622 

623 

624 

625 
.626. 

627 
62 8 

629 

630 

631 

632 

633 
.634 

-63-6. 


UNEQUIP 


ENI 

XREQ 


XI 
X3. 


USER CALLING 

UNEQUTPjXl 

LUN 


SEQUENCE 

UN EQUIP - 


*■ -V- '-r V-V--V- V- W -I- ^ V- >1-W V- * W * V- V- V-V-ir * V ¥■ 4 V- 4 

V- * 

.......* 

* 
* 

——.* 

* 

“..... . ...¥ 

* 

____:.¥ 

» 
* 

--—---—.....-¥■ 

~... * 


LUNLIST ELEMENT 


* 

* 

* .- — 

* 

-v- 

._ . 

<- 

*_ 

* 

♦ 

-——* 

* 

* 


ENTER WITH 
= POINTER TO PROPER 
= PSA.POINTER- 


1 

2 


ERROR COOES 

LUN IS NOT. EGUIPPED “ " 

LUN IS FILE PROTECTED AND NOT SAVED 


- 6 - 6 - 0 - 
661 
662 
663" 
664 
66 5 
"BERET 



Q 0536 
00537 

02100540 
01001077 

o ci i n nn n 4 

P 

P 

637 

63 8 

CL ~2 Ci . ■ 

UNEQUIP 

IJI 

UJP 

s n a 


UuyH’U 

0 0 541 

0 0542 

c. U X U U U y ± 

40 3 77777 
05600001 

X 

O O 7 

640 

641 


Lu A 

ST A 

ASG 


0 0543 

0 0544 

.. ..0.0-54.5. 

01U 0 0 5 5 6 
5360 0000 
.1 3-1)0 0 01 i. 

P 

642 

643 

. £..44 . 


UJP 

TAI 

.S'H-A-Q 


0 0546 

0 0547 
—0-055-0- 
0 0551 
00552 

17700017 

14 60 B 0 01 

.04 70 0-012 

0 350 0556 
..2 0 20 0.3 04 

P 

645 

646 

6 4 7 

64 6 
649 


ANO" 

ENA 

—#§€—— 

AQJ,NE 

LDA 


Q 0 55 3 
00554 
.. 0 0 .55 5 

03200556 
37000266 
. 03..0-0-1323. 

~P . ' . 

X 

...p... 

• 65 0 

651 

_.05-2!'_ 


A Z J f G E 

| PA 

AZJ'-i-EQt. 


0 0556 

0 0 557 

15300326 
5 310 0 0Q0 

-2 CL -7 A 

X 

65 3 
654 

1.1 -L" 

UNEQ01Q 

UNEQ01L 

INI 

TIA 


U U 50 U 
00561 

0 0562 

OOullwwlIu 

Q4600000 

01000753 

p 

n 3 
656 
.657 


..j 0 A 

ASE 

UJP 


...0 0 563 

Q 0 564 

2010 00 QQ 
44300000 


B5 8 

65 9 


“TEW.". 

SWA 


-T-I-A. 

ENI 

RTJ 

' LDA 
TAI 
IS G 
"UUP' 


667 

66 8 _ 


AZJ,GE 

VFD 

66 9 

670 


LSI 

INI ■ 

j fi 

r I 1 

67 2 

67 3 

U f't lL, 14 ul 1 A- 

_ J 4 

TAI 

IJD 

6 / 4 

675 • 

..6X6. . 

UNEQ01Z 

.YFD"" . 

LOAG 

.RTJ .-.. 

67 7 

67 8 

.. zl r/ c - , 


VFD 

LDI 

i f. A 

O 1 ~ 

6 8 0 

661 


L. tl m 

SHA 

ANA 

68 2 

683 ■ 

684 .. 

.. U-liE.-QJ.ilR.... . 

TAX 

VFD 

IMP___ 

685 

686 

..... & A? - 


ORGR 

UJP 

An/n 

© * 0 *'f**-.-*-—*-"*““ 

688 

689 


trr( b X 

UJP 

ORGR 

69 0. 

691 . 

692 .. 


UJP 

ORGR 

UJP . ___ 

693 

694 

„40C.w 


ORGR 

UJP 

og r n 

□y d 

696 


uKGk 

UJP 


*+2, XI 

ERROR 01 

• l~rXl.- 

14, X3+PSA 

"""O'NEQBTQ" 
X2+CN8LK 
--9. --- 

HTHASK 

HTFILE 

UNEQ01Q 
GPP* X2+CNBLK ' 

UNEC 0 IQ . 

SVS 

.ERROR-02- 

LUNLIST,X3+PSA 
X1+LUNLST. 

'~0 ,X3 + LUNLST~.- 

0 

UNEGG 9 

"“ 0 ,Xi+LUNLSr“ 

0,X3+LUNLST 

.X-1*LUNL3-T-- 

1 ,X3 
FREEMEM 

~’l ,X1 + LUNLS*T. 

Xl+GNSLK 
1 .Xl+CNBLK 

.XREQEND"... 

UNEQ01Z 

.A.12/EXNX..... 

RPSAP TR,X3 
LUNLISTX,X3 
1 ,X3 • 

X 3 

U NEQl 1 ,X3 

.AT27DIN1—“.“ 

COREP,Xl+CNBLK 

.REWRITE. 

A12/EIMT 

RPSAPTR,X3+PSA 

"EPP, Xii-CNaLK. 

9 

HTHASK 

.X 2 -- 

A12/DINT 
~U.NEQJ-HR > -X2_ 

UNEQJMP+HTFILE 
U.NEQO 4 

'U NEOdMP+HTLP. 

PRINT F 

UNEQJMP+HTPUN 

PTISIF-"—' 


PUNF 

UNEQJMP+HTCR 

UNEQCR_ 

UNEQJHP+HTMT 
UMEQMT 

| | MFA-I MD4.HT.TT V 


JUMP IF THE UNIT EXISTS 

LOAD THE ADDRESS OF THE BLOCK". 

SKIP IF CONTROL BLOCK EXISTS_ 

PUT CONTROL BLOCK ADDRESS IN INDE 
-EX I PACT.THE.HA R D WAR E.T YPE. 


IF A FILE OR A RAF CHECK TO 
SEE" IP 'FILE PROTECTED AND NOT 
SAVED 

LOAD THE FILE STATUS 
JUMP IF NOT FILE PROTECTED 

JUMP.IF-.HOT.SAVED .—.-.-. 

SEARCH FOR THE ELEMENT THAT 
POINTS TO THIS ELEMENT 

SKIP IF FOUND 

CONTINUE SEARCHING 

LOAD THE' POINTER FROM 'THE SLOCK 

REMOVE THE BLOCK FROM THE LIST 

LUNLIST.ELEMENT.ADDRESS.TO.(A). 

FREE THE LUNLIST ELEMENT 

CONTROL BLOCK ADDRESS TO XI 
SKIP IF CONTROL BLOCK EXISTS 

NO.CONTROL' BLOCK.SO"FLAKE.OUT. 

JUMP IF NOT EQUATED 

POINT 'TO THE' PSA 
NOW TO THE LUNLIST-i 

bET THE isEXT.L UML IST.pCINTER. 

POINTER TO X3 

JUMP IF MORE LUNLIST 


CORE ADDRESS AND BLOCK NUMBER 
-REWRITE THE CURRENT BLOCK _ 

GET THE HARDWARE TYPE 
08TAIN THE HARDWARE TYPE 


TORDWRE.TYPE.TO TRE~TN1JEX~ 


FILE 

LINE PRINTER 
CARD PUNCH.. 

CA.RO.READER. 

MAGNETIC TAPE 
TELETYPE 
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REQUEST 


0 062 4 

0 0 b 2 4 
01000640 
. 0 0 6 2 6 

P. 

P 

...p.... 

.697. 

69 8 

.AOC.. 


ORGR 

UJP 

. nc.f.B.. 

CD 

00625 

01000623 

0 0626 

X 

p 

700 

701 


UJP 

ORGR 

a 

0 0 626 

0 0 627 

01000625 

GG627 

01000763 

x.... 

P 

P 

70 2 

703 

70 4 


UJP 

ORGR 

UJP 


00630 

0 0630 
01001042 
.0 0 631 

P 

P 

p. 

705 

706 

. 7 .O.. 7 ... 


ORGR 

UJP 

.ORGR. 

o 

0 0631 

01001021 

00632 

P 

P 

708 

709 


UJP" 

ORGR 

o , 

u06o^ 

01000 bb 4 

Q 0 633 

P. ■... 

P 

710 

711 

712 


UJP 

ORGR 


.00633. 

00534 

.....00 635. 

00477777 
20000633 
. ±1+777 7?? 

P 

x...... 

"713. 

714 

71.g... 

P TP F 

V F 0 . 

LD A 

.F N n _ 

O " 

0 0636 

010u 0 655 

p 

7 16 

717 


UJP 

o 

0 0 63 ( 
00640 
00641 

0 U of 7 77 f 

2 0 OU 0 6 37 
01000654 

p 

p 

f 1 c. 

71 g 

72 0 

PLOTF 

Vr O 

LD A 

UJP 


00642 
...... 0 0643 

00277777 
. 2 Q 0 0.0 642. 

p,. 

721 . 

722 

. 7 . 2.3 . 

....p...UN-F. 

VFD 

. 2 D A.- 

O ' 

00644 

01000654 

p 

72 A 

725 


UJP 

o . 

0 0 645 

0 0646 

..... 0"0&45 . 

20100006 
1760 0 017 

p...— 

"726.. 

727 

72 e 

‘■‘■'P-RTflTF . 

EQU 

LDA 

ANA 


.. . . 05547 '. 

0 065 0 
. oo&51 

. 05'67777?" 

01000652 
—-1-4-60 0 0 0 0- 

p 

.T'Z’9 .” 

730 

7 31.. 


ASG.. 

UJP 

FM A 

o 

00 652 

0 0 653 

53600000 

20277777 

X 

732 

733 , 


TAI 

LDA 

o _ 

0 0 o5 4 

0 0 655 

Q 0 656 

"“t4'7'0Q'T0'Q" 

41002244 

13077760 

p 

759 

735 

73 6 

GUIFILE 
OUTFILEX 

£NQ 

STQ 

SHAQ 


0 0 657 
00660 

30 377777 
53600000 
. ?.04,n.fi. n.nv 

X 

"”737 

7-3 8 

.: 7 . 3 a___ 


ADA 

TAI 

.. 4 . 4 XA_ 

O . 

0 0 66 2 

0 0663 

03000711 

20100000 

~p~~. : . 

f w z? 

740 

741 


Ui* ft 

AZJ,EQ 

LDA 

o. 

0 0 ob 4 
00665 
00666 

15 47 7 775 
03300711 
15600-002 

p 

743 

744 


“WfrfS* 
AZ J,LT 
INA 


00667. 

00670 
... Q 0 671 

.35 057W 

342O0O0 Q 
. i..3.0..7...7..76fi'..... 

.p”.'. 

~7W5 

746 

. 7 0 - 0 -- 


""Mrs""’ 

RAD 

SHAQ_ 

o * 

q,... 

0 067 2 
00673 

0 0 67 4' 
00675 
00676 

15600801 

40100000 

14600081 

34000057 

24100007 

X 

746+002 
746+003 
79 7 

748 

749 

—————— 

INA 

STA 

“ENA 

RAD 

LCA 


00677 

0 0 70 0 

...... 0 0 70 1.. 

~3&37777r 

5310OQQ0 

.....5.3 70.0000- 

'""X. ““ 

'"”751.'. 

751 

752 . 


..RAID 

TIA 

TAI_ 

. 

0 070 2 

0 0703 

13000030 

53500000 


752+001 

754 


SHAQ 

TAI 

10 ® s: 

O. 

0 0704 

0 0 705 

.1420062b 

01500022 

S “X 

79*5™“ ““ 

756 

757 


£NI 

UJP,I 


00706. 

0 070 7 

...0 0710. 

.2110 00 04. 

27000554 
.03100722 

X 

p__■__ 

.75 8 . 

75 9 

760 

UNEQ04 

.LDQ'.. 

LDL 

. AZ-J ,-NE- 

o o 

C 

0 0711 

0 0712 

0 071 3 
00714 

0 0715 

21100007 
20100001 

0 0 77 7 777 
24100007 
54300677 

X 

X 

761 

76 2 

763 

764 

765 

UNEQ05 

UNEQ05X 

LDQ 

LOA 

“RW—" 

LCA 

RAD 

ft 

0 0 716 

0 0717 

.00716 

14300003 
5310 0 000 

p.-.. - 

766 ... 

767 

_7 6.8. 

UNEQCR. 

EQU 

ENI 

TIA . 

O 

0 072 0 

0 0721 

00700567 

01000704 

X 

X 

769 

770 


RTJ 

UJP 

Jla... 

00722 

15300232 

X 

fix 

77 2 

UNEQ07 

INI 


o 


UNEQUIP 

UWE y^ R -p ¥RTPl0T 

P LOT F 

-UNEQJMP+HTNULL 

XREQEND 
UNEQJMP+HTTV 
X REtTE-WD—•— ' 
UNEQJMP+HTRAF 
UNEQRAF 

U NEQJ MP+HT TASK 
UNEQTASK 

-U NEQ JMP + HTMSF -- 

UNEQMSF 
U NEQJHP+HTPTP 

—PTPP- -. 

UNEQJMP+HTMAX 


X/V PLOTTER 
NULL 

CRT DISPLAY-'"-- 

RAN DOM.ACCE SS . FI LE 

TASK 

USER DISKUNIT 

PAPERTAPEPUNCH 
ADJUST THE ORIGIN 


A 9/PTPRECVA15/F TP BLOC : . 

*-l 

-P4PG4M&-.------—PA PI 

OUTFILEX 

A 9/P L QT RE C»A15/PLOTS LOG 

*-l 

OUTFILE . 

A 9/PUNREC ,A15/PUN8LGC 

*-± . 

OUTFILE 


EPP,Xl+CNBLK 
178 

TPWC 

* + 2 

-0 --— 

X 2 

LPTAB > X2 

3 “ 

XTEMP 

-15 

A CCS TUFF» X 3 H PS A. 

X2 

T-FL-,Xi+G N 8 LK-— 

UNEQQ5 

ACCWORD,Xl+CNBLK 

UNEQ05 

2 

"XTEfTF ” 

0 ,X2 

-=-9 .-.-.-. 

1 

ACCWORD)Xl+CNBLK 
1 

I08USY 

TFL,Xl+CNBLK 

TWllCTTP''Sl. 

Xl+CNBLK 

X3+CNBLK...-.- 

24 

XI 

X REQEND , X2 - 

QINGL OC > XI 

''CPP75ri-FCNB'£X.”. 

SVB 

-UNEQ-0-7--a---— 

TFL,X1+CN8LK 
LP,Xl+CNBLK 
FREEFILE 
TFL, Xl+CNBLK 
. TFBLKS, . X 3 +PSA . 

3,X3 

Xl+CNBLK_. 

FREEMEM 

XREQEND 


WHERE DOES THE OUTPUT GO 

SKIP.IF.OUT.OF.RANGE. 

PUT.ON.T HE.-ST-AN CAR 0--PR INTER- 


NO HANQtTNG CHARGE""".. ...“. 

SAVE THE HANDLING CHARGE 

SAVE DRIVER ACDRESS IN Q . 

CALCULATE ADDRESS IN ACCOUNTING 
BLOCK . 

-GET-.-T-HE--F-I-LE--LE-NGT-H-- 

IGNORE EMPTY FILES 

LOAD THE NUMBER OF RECORDS 


IGNORE NULL FILES 
RESTORE RECORD COUNT 

.ADD IN.HANDLING CHARGE.*. 

MAKE THE CHARGE 

DIVIDE- . BY .511..- 

ADD 512 IF SC 
STORE FOR MACRO 

ONE MORE" -OUTPUT FILE TO PUNCH, 
PLOT, OR PRINT 

WJU'ST.THE 'TOTAL SCRATCH.SPACE. 

PUT CNBLK INDEX INTO X3 

MG VE MACRO.ADDRESS.TO.A 

ENTER.THE RETURN' ADDRESS 

START THE DRIVER IF NEEDED 

LOAD.THE STATUS.WORD.. 

JUM fL.IF-.A..SAVED FILE .-.-. 

LOAD THE FILE SIZE AND THE 
STARTING BLOCK NUMBER 
FREE THE FILE 

SUBTRACT THE LENGTH OF THE FILE 
FROM . THE .SCRATCH. SPACE TOT AL. 

CONTROL SLOCKS ARE 8 WORDS LONG 

CONTROL. BLOCK ..ACDRESS.TO.(A) . _ 

RETURN THE FILE CONTROL BLOCK 


NAMELIST,X3+PSA 
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REQUEST 


0072301000726 P 
00724 53200000 

00725.5370-0000. 

00726 20300000 

00727 53600000 

00730 53100000 

00731 36200001 

00732 04600000 

0073301000724P 
0 0 734 2020 0 000 

00735.4430 0 000. 

00736 14100740 P 

00737 02601302 P 

00740 14477776 

00741 34104011 

00742 20 20 0541 X 

00743..5370 0 0 00. 

00 744 .14200000 

0-074-5. 2-040-40-06 . 

0 0 746 35104010 

00747 03201446 P 

0 0750 ' 5 30-20 037— 
00751 40104004 

00752 01001464 P 

0 0753 20300.0¥S. 

0 0754 5370 0000 

00755 .0-1-0 0-0-5 -5-7- .P 

00756 53100000 

0 075 7.36 30 0 0 02. 

00760 04600000 

00761 01 0Q 0600 P 

0 0762.01 GO 0 721.X 

0 0 763.211000. 0-4- . 

00764 270Q0707 X 

00765 03100722 P 

u 0766 2110 00 07 - 

00767 04500000 

0 0 770 1570 90 02 

0 0771. 0IW07T2.F 


00772 21100000 

0 077 3.’ 4 3 010 66 2' P- ~ 0 21 5'4 . 2 

00774 14477775 

0 0 775. 34.3-0-S401 . X ..... .. 

00776 05500000 

00777 34000452 X 

010 00 - 1-3 00-0-030.—..-- 

01001 53 600030 

01002 53100000 

0 10 0 3. 14J0WfT3 .'.. . . . 

01004 00700720 X 

010 0 5. 5-3-10.0-O-G-C .:.:. 

010 0 6 14 IQ Q 370 X 

01007 14577777 

01010 +27 7 76C 

01011 41277777 X 

01012 06100466 X 

01013. QTQ0O7F2" .X.... 

01014 41100375 X 

01015. 11..0..10..6.6..G..P..0 2154..0.. 

01016 14700011 

01017 14201013 X 

01020 0x000450 X- 


---'-~—'.TO2TF 

01021 20300657 X 

010 22. 53 60 0000.. 

01023 21100000 

01024 20100005 

01025 05500000 

01026 14600000 


UNEGO 8 


PFO - 


TJRFQW 


ujp. 

TIA 

TAI-.— 

LQA 

TAI 

TIA— 

SCA 

ASE 

UJP 

LDA 

SWA- 

ENI 
I JO 

-EN-AtS— 

RAD 

LDA 

TAI. 

ENI 

-4-OA.-— 

SS A 

AZJ,6E 
Ttt-A— 
STA 
UJP 

XO'I". 

TAI 


UNEQil 


TIA 

SCA 

ASE 

UJP 

W 


-UNEQRAF- 


-LOQ.-. 

LDL 

AZJ,NE 
QSE,S 


314 

.-8-1-5- .-. 

816 
817 
3-18 
819 
82 0 
T0TZI 
622 

S22.i-0.0-l 

522+002 

82 5 

-825+Q-Oi 
825+002 
82 8 

BZ'9... 

8 30 

-.8-3-1 .-.. 

832 

83 3 

3 3 3+ 0 0 t 
8-3 3+002 

834 

835 

836 

-837_ 

838 

839 

840 

841 

842 

843 . 

344 

845 ._ 

846 

847 

84 8 
845 


UMEQMT 


U'NEQHSF 


.NOTE 


"STGCTT 
ENA, S 

-RA-O- 

QSG s S 
RAD 

TAI 

TIA 


RTJ 
-IXA— 
ENI 
ENQT 
■JS* ■- 
ST Q 
MEQ 
TTJP 
STQ 

ENQ 

ENI 

-UJP 


ECU 

LDA 

TAT.... 

LDQ 

LDA 

-Q5-6t3~ 

ENA 


UNEQUIP 

. * + 3 JUMP INTO THE.SEARCH LOOP ' 

X2 CURRENT POSITION INDEX TO THE 

-X 3 ..-----.-.PREVIOUS.POSIT ION INOEX.-.. 

0 , X 3 LOAD THE FORWARD POINTER 

X 2 

—X1+CNBLK CONTROLBLOCKADDRESS TO(A) 

1,X2 IS THIS THE CNE WE WANT 

0 SKIP IF IT IS 

.ONEGO 6 . .”.‘..'.'.'. .'.*. 

0,X2 REMOVE THE NAMELIST ELEMENT FROM 

-0,X3---THE.LINKED.LIST . -------.-.-. 

*+2»Xl ENTER THE RETURN ADDRESS 

SRCHXX, X2 GO THE FOR THE FC ENTRY 

CORE + FDBUSY, XI DECREMENT THE BUSY COUNTER 

T 4,X2+PSA GET THE CONTROL BLOCK ADDRESS 

..pul.INTO.X 3.. : .- 

Q ,X2 

- .G QRE-+ F D EPP, XI-----IS.-T-HE.FILE.PROTECTED.-.—.-.-. 

CORE+FDCDATE,XI OR ABNORMAL 

PZ JUMP IF NOT 

- -0 ATE * —-.— ... -.-..- — 

CORE+FDATE,X 1 SET THE LAST REFERENCE DATE 

PQ 

0 -- }X 3 + to - NIST GET.THE^NEXT.POINTER.... . 

X 3+LUNLST 

.UNEQOIL-----.-AND.LOOP.BACK--....-. 

XI ' COMPARE CONTROL BLOCK ADDRESSES 

—f x . 3 ... ————-————— 

0 SKIP IF THE SAME 

UNEQ01X LOOP BACK IF NOT 

.XREQEND • ” EXIT.“ r .....“.—.:.-.-.. 

-C-P-P-j-X-l- IS .THE-.R AF.S A-V-E-D...-- 

S V9 

UNEQ07 ACT LIKE A FILE IF IT IS 

..T-FL-,-X'l+CNBLK“----LOAD' THE'FILE LENGTH"..-. 

0 SKIP IF EMPTY 

2 ADO IN THE SUPER STRUCTURE 

OT|Ea05x . .-----. mEE . T - R -r.prig..-.. .~ 

-THE.PRECEEDIN-G.C 0-0 E.LO-S ES.ALL.MINOR..ACCESS.BIO CKS. 

AFTER THE FIRST ONE 


0,Xl+CNBLK LOAD THE TAPE UNIT NUMBER 

HTFRHSG+2 ' ' 'T - “ ; 

..UJ..Afi.E.HA.X.,..X3-+-PSA__—R£HQ.V.£ THE GU-Y-S -M-T- - - 

Q SKIP IF TAPE IS M CUNT ED 

SCREAM TURN OFF THE NOISE 

■-2-ir---—-——-iJ-N-ff—NUMBER- TO'" A * - - 

X2 SAVE FOR LATER INDEXING 

Xl+CNBLK CONTROL BLOCK ADDRESS TO IA) 

3 V X 3 : ...ITS. 8 .WORDS'.LONG .. 

FREE MEM 

Xl+CMeLK--—.-CONTROL.BLOCK.A-DR-E-SS.TO.<A».AGAIN 

TPUNITS,XI ENTER THE NUMBER OF TAPE UNITS 

7 777 7 8 

7-776Q8, X 2.-. -SKIP” tP~T APE WAS NOT MOUNTED- - 

T NUMLIST,X2 WIPE OUT ENTRY FOR TAPE NUMBER 

T 8 LKL 1 ST ,1 LOCK FOR THIS CONTROL SLOCK 

X REQFND ......... 

TAPELIST,XI CLEAR THE ENTRY 

MIERETSG_______ MESSAGE ADDRESS...... 

9 NINE CHARACTERS 

XREQEND,X2 ENTER THE RETURN 

OPM3G -..*.- —GO- PRINT THE MtSSAOE—.... 


ACCSTUFF,X3+PSA LOAD ACCOUNTING BLOCK ADDRESS 

X 2 

0, Xl + CNBLK WAS THE PACK MOUNTED 

8 LKR,X1 + CN3L K LOAD THE WALL CLOCK TIME 

PACK . W AS .MOUNTED .. 

0 NO WALL CLOCK TIME 
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010 2 7 
0 10 3 U 
01031 
01032 
01033 
01034 
01035 
0103& 

01037. 

01040 


15677777 

34200006 

5310 0 0 00. 

14100525 
14577777 
0 610 05 27 
0 0 77 7 777 
20000473 

.3410 1034 

14301017 


01041.01 07777-7- 


01042 

01043. 

0104 4 

01045. 

010 46 
01047 
01050 
01051 
01052 

01053. 

01054 

-01055. 

01056 
01057 
-0106 0 
01061 
01062 

.010 6 3 

01064 

01065. 

01066 

01067 

01070 

01071 

01072 

01Q’7'3. 

01074 


01042 
2 010 0 Q 04 

37 00 0 263. 

03 10 0711 

....2-537-777-7-- 
45100003 
2 4 10 Q 0 07 
34-30 0715- 
16477777 
15477776 
'""4"0T0"Q"Q tnr 
1470 0 0 44 

.12-40-.0-0-17- 

20100006 
4110 0 0.06 
-05600901.' 
14677777 
53 60 0 0 00 
”5 310 0 0 0 6’ 
35001036. 

. 4-0-10-0 0 0-0. 

35000274 

21600000 


Q 1071 


854 

.85 5. 

856 

357 

85 e.~. 

85 5 

.860. 

861 
862 
-86 3 

864 

865 

'W 6 '... 

867 

- 8 - 6-8 .-.- 

86 9 
87 0 
371 

872 

873 

.874. 

874+001 
....3.7.44, 01.2- 

87 4+ 0 0 3 
874+004 
'8 1 4+ 0 05 
87 4+0 B 6 
874+007 
-'8T4 + 0IV3 
874+009 
-37-4+-S1S- 
874+011 
874+012 
874+013' 
8 74+ 014 
87 4 + 015, 
87 4+015 


INA. 

RAD 

.TIA . 

ENI 

ENQ,S 

- ..MEQ. 

RTJ 

LDA 

RAD.. 

ENI 

.UJP. 


UNEQTASK 


EQU 

LOA 

TP A. 

AZJ,NE 

LOA-G . 

STAG 
LGA 
RAD 
XO A j S 
INA > S 


LDA 

STQ 

-A-SG"- 
ENA 
TAI 
TIA" 
SS A 
-S-T-A-- 
SSA 
LOQ, 
QSG, 


3CA 
SC A „ 
S f A j 
UJP 


UNEQUIP 


MSFCHRG MOUNTING.CHARGE 

MSFTIME,X2 MAKE THE CHARGE 

X 1+CN9LK..—CONTROL BLOCK ADDRESS TO A 

M SUN ITS» XI SEARCH FOR THIS CONTROL BLOCK 

777778 

MSFJLK, I” — 

SYSERR 

8IT23 

MSF3LK,XI INDICATEUNEQUIF 

XREQENDs X3 

C ALMS FMT.- - GA LL T HE D ISK--ROU T I NE. 


GPP,X1+CN8LK 

LP 8 . 

UMEQ05 

-A-GGN-UM-j .X3+PSA 

GBP,X1+CN3LK 
TFL,Xi+CNSLK 
T F 8 L K S j X 3+ P S A 

-0 

BLKR j Xl+GNBLK 
0403 + HTGR 

4-5 .. 

E PP* Xi + CNSLK 
EPP j X1+CN3LK 
1 

TASKQ 

X2 

XI*JN3LN 
B ITS 3 

-0-,-X-l+-CN8LK.— 

8 1117 
0 ,X2 
:: 

BIT 2.3 
8IT23 

Q .‘<2 .. 


IS.I HE.I A S K. A J. LOA O P OIN T 

FREE IT IF SO 

GET JOB NUMBER FORM PSA . 

STUFF IN CNBLK FOR PHANTOM 
GIVE THE USER HIS SCRATCH 
SPACE-BACK 

SET THE NUMBER OF BLOCKS IN 

THE TASK . 

MAKE OESTRUCiIVE CARD READER 

-SHIFT-.I-NTC .PCSITICN. 

GET DESTINATION 
TURN TASK TO CARD READER 
PUT F O S i A' HOARD IF. .. 
...NOTHING SPECIAL SPECIFIED 


MARK AS A TASK 

-POINT 1 HE CONTROL BLOCK TO ITSELF 
ADO INDIRECT BIT 
GET LAST ENTRY NORD 
SKIP If 'IT HAS SIGN BIT.. 

RETAIN BIT 23 ON END ENTRY 
Pi. ACE ENTRY IN TO QUEUE 




















































0 


0 


0 


O 


o 


o 


o 
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REQUES T 


SAVE 


O 


O 


Ct 


O' 

i o - 

O 

O 8 ' 

o a . 

O 1 ' 

Q, 


01117.2 0 2-00006 


01140 

01141 

.01142. 

01143 

.01144. 

01145 
01146 
0114 7 
01150 
01151 
“01157“ 
01153 

.01154. 

01155 

01156 

01157 

01160 


03401132 P- 
21002152 P 
03401132 P 

"13277725.. 

04777753 
JLiJLQ .114,7 £_ 
2 0 30 0 20 D X 
03201132 P 
14601154 P 
00301152 P 
04777760 

.0X001751.P~ 

01001132 P 

.03100,21a.£_ 

20201101 X 
5350 0 000 

20 100002.. 

40201155 X 


886 

887 

888 
889 
89 0 

891 

892 

893 

894 

895 

896 

89 7 

898 

899 

900 

901 . 

902 
-9-0-3. 

90 4 
90 5 

"9'0.a* 

90 7 
90 8 
W 


. y. V -r ^ ¥•' iyc; iyt. i/L Ay: Af ¥ •V LyT JjTjyL jy. Jy. y y ijt Jj/t ' jyT ^ Ly: 

^ * 

..............&. 


SAVE 


-V- 

— 

* 

* 

.*. 

-* 

_j£_ 

■¥■ 

♦ 

V- 

%- 

■^r 

* 

* _ 

* 

* 

-¥-- 

* 

* 

"IT 

•V * ** 


USER CALLING SEQUENCE 

'E1H-S-AVErtt.. SAVE = 1 ———- 

LDAQ FILENAME 

X REQ ._...LUN............_.;. 

ENTER WITH 

XI....- POINTER TO PROPER.LUNLIST -ELEMENT ---- — 

X3 = PSA POINTER 

..ERROR.CODES ' ' 

1 LUN IS NOT EQUIPPED 

2 NAME ALL READY EXISTS 

3 .FTLc " IS.ALL.RE AD Y SAVE D. ..... 

4 LUN IS NOT A FILE OR RAF OR DESTRUCTIVE READ 

-5.NOT-.ENOUGH SAVE.F-ILE.SPACE.-.-.—.- 

6 NAME IS HARDWARE NAME GR 

first character is - or t t 

t%t FILES CAN BE SAVED ONLY IN CONTROL NODE 
t t FILES CAN BE SAVED ONLY IF 3J3 IS SET 


FILE 


93 0 


-tfrAr 


:PP, X2+CN8LK- 


LOAO THE—END POSITION PGINTER 


'94 6 - 

947 

948 
""94 T 

950 

951 . 

952 

953 

-954- 

955 

956 
95 7 

958 

959 

960 

961 

962 

963 


“At-dre-t- 

LDQ 

AQJ,EG 
“STTflrcr 
QSE 
.UJP 


LD A 

AZJ,GE 

-ENA 

SJ3 

QSE 

UUP- 

UJP 

..AZ.J,..»..NE.. 

LOA 

TAI 

HrB-A— 

STA 


ERROR 06 
8CDMSF 
ERROR06 

-gr^—j--g- 

7775 3 B 

JL±3- 


SYSCM ,X3+PSA 
ERROR06 
-»+ 5 
♦ +2 

7 776 0 B 

SRCHFDR ~.~ 

ERR0RQ6 
ERR 0 2 


. AE—A LSD'— 

A K 3 F X IS ALSO ILLEGAL 

"TS.THTS.7T.$.FILE . 


MUST BE IN CONTROL MODE IF SO 
ENTER RETURN FOR SRCHFDR- — • 
IS THE FIRST CHARACTER A BLANK 


T4,X2+PSA 
Xl+NAMELST 
2 ? Xl+NAMELST 
T4,X2+PSA 


-JUMP IF.NAME.ALT—READY.PRESENT 

GET THE LUNLIST POINTER 
PUT IT INTO XI 

GET THE CC-NTRCL 3LOCK- ADDRESS- 
SAVE IT IN THE PSA 


,0 

°CD 


o 

01075 

01076 

53 10 0 0 00 
02101101 

P 

912 

913 

SAVE TIA 

IJI 

X1+LUNLST 
*+3,Xi+LUNLST 

LUNLIST ELEMENT ADDRESS TO (A) 

JUMP IF THE UNIT IS DEFINED 


0 __.:. 

010// 

01100 

01101 

i 4 6 0 0 0 0 1 
01000170 
40300742 

p ■ 

X 

.... . .914 . 

915 

916 

- trR R u Rut ’ ” E'N'A 

UJP 

STA 

ERROR 

T 4,X3+PSA 

SAVE THE LUNLIST POINTER 



01102 
01103 
.0110 4., 

201G0001 

5360000Q 
.24200 0 0-4.. 


91 ? 

918 

.........9i„9._. 

LOA 

TAI 

lda 

.IV AI.. 

X 2+CNBLK 
.C PS... X 2+CHS L K - 

.“.GET THE.CDMTROC SLOCK.ADDRESS. 

CONTROL BLOCK ADDRESS TO X2+CNBLK 

- 

o 

O .: 

01105 

01106 

.0110 7.- 

OHIO 

01111 

37000764 
03100167 

2 O 2 O- 8 # 0 a- 

12 0Q00Q3 
03301325 

X 

p 

p 

92 0 
' 921 

---92 2. 

9 23 

924 

LP A 

AZJ,NE 

■ EDA ' :■ ■ 

SHA 

AZJ,LT 

SVB 

ERROR 03 

—ESP I X'2+eNStK— 
23-20 

ERROR04 

JUMP IF ALREADY SAVED 

CHECK FOR DESTRUCTIVE READ 

PREVENT A LOT OF TROJ8LE 

— — '...... 


01112 
01113 
...0-1114. 

. IZU77T55 . 

17 60 Q 017 
.14X043-0-12. 


.¥25. 

■ 926 

..___.92?.. 

. SHA. 

ANA 

.......ENQ - _ 

-15-23+20 

HTMASK 

..H T.R-AF-.... 

MASK TO THE HARDWARE TYPE 


O ; 

01115 

01116 

04600001 

03501325 

p 

928 

929 

AS E 

AQJ,NE 

HTFILE 

-ERROR04 

JUMP IF NOT A FILE OR RAF 



% i 


’G 

,sO 

.. 8 

O 


uO 

L 

o 

o 

o 

o 

o 


01120 

01121 

350Q1843 

40200806 

X 

931 

932 


SSA 

STA 

BIT22 

EPP,X2+GN8LK 

SET THE CHANGED SIT 

AND STORE IT BACK 


.0 1122. 

' 2 0 3U 0'53t" 

X 

93'S 


. am~~ . 

'■'■"GTXj+fsa:. 

. LOAD THE SECOND HALF.OF.THE.NAME..“ 


U 112 3 

21000045 

X 

934 


LOG 

BLANKS 



..0.112.4. 

0 3 50> 1134, 

.e. 

.■.93.5. _ 


... AQJ ,N£. 

. SAME OX . 

.JUMP IF HON... Bi-ANK, . . 


01125 

20300461 

X 

93 6 


LDA 

A ,X3+PSA 

LOAD THE FIRST HALF OF THE NAME 


01126 

14577777 


937 


ENQ, S 

77777B 



01127 

■ 14100320 

_______ 



a« 

— H *0L&N*G'THirX-±— 

______—......:.- ...— 


01130 

06202205 

p 

939 


MEQ 

HARDWARE+1,2 

TEST FOR RESERVED NAMES 


01131 

03101136 

p 

940' 


AZJ,N£ 

3AVE01X 

JUMP IF A LEGITIMATE NAME 


.01132. 

14 60 0 0 0 6 


9 41 

..E'RRTiR’OB"' 

ENA 

6 



01133 

01000170 

p 

9 L 2 


UJP 

ERROR 



......0113-4. 

.2-0-30112.5. 

..x___ 

_______ 9 ^*3.. 

..SAVE01 

_lda_ 

...:.-A-»X-3-*-g-SA.-... 

. LG-AO- IKE FI-PST-.HALF.GF-THE -NAME. 


01.135 

03001132 

p 

944 


AZJ,EQ 

ERROR06 

JUMP IF ILLEGAL 


01136 

21002153 

p 

945 

SAVEDIX 

LDQ 

a com 




o 


o 


o 

o 

o 

o 

o 

o 

o 

o 


o 





































REQUEST 
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G 1161 .51700 0 00. 

01162 20300007 

.04161.3 0 27 7 777 X 

01164 15600001 

01165 21277777 X 

.Ott&tr—0-3-7044 71 P 

01167 14600005 

01170 01000217 P 

.01171.40 201161. X . 

01172 24300007 

.01173 .34-2-0-1-0-5-0.X 

01174 20001105 X 

01175 34300004 

01176 14300002 . 

01177 00700457 X 

01200 21200722 X 

.01201 .4G2'GT2'0'0.X 

01202 41300000 

.0-420-3.2-0-400 00-2. 

01204 403G0001 

01205 53500000 

01206-.-25 201134 .X 

01207 4530S002 

01210 54302241 P 

.04211.45377777.X" 

01212 20001215 P 

.0 -1213—4 0 37 7-777 X- 

01214 01002015 P 

01215 40001216 P 

01216 .1460 0 0"01 

01217 40104011 

01220 25201045 X 

01221 4540’¥QT2 T . 

01222 25201211 X 

01223.454-0-4-00-0 .- 

01224 01001444 P 



SAVE 


X 3+CN8LK .'. — .CONTROL.BLOCK AGGRESS TO X3+CNBLK 

TFL,X3+CNBLK LOAO THE LENGTH OF THE FILE 

.SFOLKSj X2-+P-SA -.CALCULATE THE NEW TOTAL 

1 CHARGE FOR DIRECTORY SPACE 

SFBLKLIM,X2+PSA LOAD THE UPPER LIMIT 

-■^-+■3” — - - —^—— JUMP IF THE USER CAN HAVE THE — 

5 SPACE 

SRCHERR 

S F3LKS , X2+PS A. STORE . THE .NEW.TOTAL AWAY. 

TFL,X3+CNSLK 

—T-F3 L-K S » X2+ PS A -DECREMENT THE -SCR ATCH LIMIT—. 

s VS 

CPP,X3+CN3LK SET THE SAVED FILE BIT 

. 2yX3 ———————— g ET 4 K 0 R D S F 0 R~T H E N AM EL TS T— ~— 

GETMEM ELEMENT 

NAMELIST,X2+PSA LINK THE ELEMENT INTO THE GRAIN 

NAM E L I S T , X2 + P S A .. .... . ... ... 

0,X3+NAMELST 

—2-,-X4-+-NAMELS-I— ---GET T HE ..STATUS OF- THE- FILE. 

1, X3+NAMELST SAVE THE STATES AND CONTROL BLOCK 

XI CONTROL BLOCK ADDRESS TO XI 

“AtX 2+'PSA...GET THE FILE If AHE™————-— 

2, X3 SAVE IN THE NAMELIST 

SRCHQ 8 ,X3+PSA GET THE PSA POINTER 

“'T570+FSA. — .~. SAVE' 'THE 'FILE NAME.. 

* +3 SET THE RETURN AND SAY WE WANT 

—T-i-*X3-*PS-A----A VACANT ENTRY .- ---.— 

SRCH03X GO SEARCH FOR AN ENTRY 

*+i 

1 .... SET- -THE-"BUSY COUNTER. 

C QRE+FOBUSY,XI 

ACCNUM,X2 SET THE ACCOUNT AND USER NUMBER ' 

’~C"0'R'E+FD ACC, XT"...* '.....* 

T5,X2 GET THE NAME 

.C-QRE-+-FOS-Y-M-,-XA-- 

P V 
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. 

1003 * * 

-.-.-...----.--100.4-.-.._.-._.DELETE---__-__-.-.-...—___-.* 

1005 * * 

100 6 * USER CALLING SEQUENCE * 


Cl . 




—.. 100 /. 

1008 

1 Q 0 9 

..* • ' ENT... 

* LDAQ 

* XREQ 

DELETEjXl ■ 

FILENAME 

LUN 

DELETE..0...—.-.—.—.—.— - 






1010 

1011 

.. 1012 . 

* 

.*..:.XI .. . 

ENTER WITH * 

- pnTMTFP rn ppnppp mini t^t fi pmpkt * 


G 




1013 

1014 

* X3 

= PSA "POINTER. “ 

„ « * • ” ~ ‘ * 

* 


G 




1015 

1016 
1017 

V 1 

v 2 

tKKUKOUUtb ^ 

LUN NOT EQUIPPED * 

FILE IS FILE PROTECTED * 






loi e 

1019 

. 10 20 . 

- ■ 3 

* 4 

* c; 

FILE IS NOT SAVED 
NAME IN AQ IS NOT 
NOT ENOUGH SCRATCH 

THE NAME OF THE -FILE * 

spun f ♦ 


O 




1021 

* 

r V ** * * # -¥■ ** w * * * * * 




O _. 

01225 

01226 

0 510 0 0 01 
01 00 1077 

P 

i u c -j 

1024 

1025 

DELETE ISG 

UJP 

1 ,xi 

ERROR 01 

SKIP IF LUNLIST EXISTS 



0122 ? 
01230 
...01231 

2 010 G 0 02 
53600000 
-2-0.20-0-0.0.4. 


10 2 6 

1027 

.1Q28. 

...LD4...*. 

TAI 

....4.0 A.. 

.27X1. 

X2+CNBLK 
.CPP.X2+CN8LK . 

.GE T.THE.CCNTRCL. 8 TQCK.ADDRESS..~... 

CONTROL BLOCK ADDRESS TO X2+CNBLK 

IS IT FILE PROTECTED 


o 

01232 
0123 3 

03301323 

25301206 

P 

X 

1029 

1039 

AZJ,LT 

LOAQ 

ERROR02 

A,X3+PSA 

CANXT DELETE 'PROTECTED FILES 

LOAD THE FILE NAME 


o. 

u 123 4 
01235 
01236 

45 00 22 44' 

15301201 

02701245 

P 

X 

p 

......10 31. 

1032 

1033 

STAU 

INI 

IJQ 

X T t M P 

NAMELIST,X3+PSA 
DELETE03,X3 

' SAVE IT . 

POINT TO THE NAMELIST 

THIS WILL ALWAYS JUMP 



01237 

..0.1240. 

25200003 
.33-00-2 2 44- 

.p... 

.1£T34~. 

1035 

.i,o 3 e . 

DELETED 2 LOAQ 
.S 8 A-Q. 

3 ,X2 

yfEHP. 

LOAD THE FILE NAME FROM THE 
.NAMELIST AND CHECK FOR THE 


o 

01241 

01242 

13400000 

03001251 

p 

1037 

10 38 

, , , ..... a r% ,,2,0__ 

SC AQ 
AZJ,EQ 

VTA./ 

0 

DELETEO 4 

NAME ’WE'WANT- 

JUMP IF THE ONE WE WANT 


o . 

UIlHO 

01244 

01245 

5 3 2 0 tl u 0 U 

53700000 

20300001 


1 U o9 

1040 

1041 

1 JL A 

TAI 

DELETEO3 LOA 

.A 'C ...-.-...... 

X3 

1 *X3 

. NA ME L I S i + U1N 1 Lk TU X 3 *•—•“ - - 

GET THE NEXT POINTER 



01246 

01247 

... 01250. 

53600000 
02601237 
. 0.1.0.0-0-167. 

p 

p .. . 

.1042. 

1043 

____ ;.1 044 .. 

.TAT. 

I JO 

-.....UJP _ 

.X 2 . 

DELETE02 ,X2 

E RRQ.R0.3. 

LOOP IF IT IS REALLY A POINTER 


o 

01251 

01252 

r* a o c if 

20200002 

36100002 


10 45 

10 46 

a n (, "7 

DELETEO4 LOA 

SCA 

s\ tn r* . ... ,, ,, 

2,X2 

2,XI+LUNLST 

COMPARE CONTROL BLOCK ADDRESS OF 

THE LUNLIST ELEMENT WITH THAT OF 


o. _ 

..U1 coo 

01254 

01255 

.u 4 b U tl u U u 

01001325 

202 Q 0002 

p 

XU HT 

10 46 

10 49 

- — . — 

UJP 

LDA 

ERROR04 

2 ,X2 

i He NAMELIS'T' ELEMENT 

NAME —LUN INCCNSI ST ANT 

LOAD THE ADDRESS OF THE CONTROL 



.01256 

01257 

_...._Q-12.6JL_ 

■"5X5cnrow 
24100007 
. Q-3J.Q-12.Z.3.- 

p ___ 

... ro'Sff 

19 51 

.. 10 52. 

rAI 

LC A ' 

_ ■ __-. AZJ-j.EQ,.. 

.XifCNBLK... 

TFL,X 1 +CN 8 LK 
. nELETEX4....... 

.BLOCK..."...... 

GET THE FILE LENGTH 

.J U M 5—I F . Z£ R 0 . L F N G-TH. 


D O 

j 

01261 

01262 

0 126 3 
01264 
01265 

54100607 
34101171 
16 47777?' 
30101173 
21177777 

X 

X 

X 

X 

1053 

1054 

1 0-5-5— 

1056 

1057 

tor 

RAD 

—-r—-~X c A , S 

AQA 

LDQ 

RPSAPTR,Xl+PSA 
SF 8 LKS,Xl+PSA 
§~ 

TFBLKS,Xl+PSA 
MF 8 LKS,Xl+PSA 

POINT TO THE PSA 

GIVE THE USER CREDIT FOR THE 
—" B L 0 QKS-...... ....* 

CALCULATE THE NEW TOTAL SCRATCH 

AND COMPARE IT WITH THE LIMIT 



01266. 

0126 7 

. 01270. _ 

.03 60T327 

40101264 
. 21.17-7.7.7.7. 

p 

X 

. X—_ 

.linger. 

1059 

. 1,06 0 

. 'A'Q'jyGE . 

ST A 

. . . . .. . .. ....LDQ-... 

OELERR05.. 

TFSLKS,Xl+PSA 
TFBLKMAX,Xl+PSA_ 

.JUMP.IF TOO LARGE""""' .T.■ ...... 

STORE THE NEW SCRATCH TOTAL 
...LOAD THE-MAXIMUM- SCRATCH SPACE....-_ 


O' 

01271 

01272 

03701273 

40101270 

.. jfl 4 0 7 7 

p 

X 

Q . 

1061 

1062 

AQ J, LI¬ 
ST A 

ncf cT-rvi.mi. 

+ +2 

TFBLKMAX,Xl+PSA 

. 

AND CHECK FOR A NEW RECORD. 

STORE ThE NEW RECORD AWAY 


i U . 

o __ 

01273 

01274 

U X c( o 

25200001 

44300001 


iJ CO 

1064 

1965 

U tl L H. t u a h s— U 

LDAQ 

SWA 

1, X2 

1 s X3 

REMOVE THE. NAMELIST ELEMENT 



.01275 

01276 

. .01277. .. 

13 0 0 0 0 3 0 
53500000 
. 24.0 0 . .11.7.4 . 

. X . 

. row. . 

1067 

.. 10 . 6.8 .. 

SHAQ 

TAI 
! n A 

2 4" - . r " 

Xl+CNBLK 

- ,s V.S-. .. 

CONTROL BLOCK ADDRESS TO Xl+CNBLK 


O’ 

01300 

01301 

34100004 

14101313 

>w -, , . |J|,7 [1 O 

p 

Q .... . . .. . 

1069 
107 0 

RAO 

ENI 

CPP,Xl+CNBLK 
DELETEO5,XI 

3f 

CLEAR THE SAVE FILE BIT 

ENTER RETURN FOR LATER 


a. 

01302 

01303 

53200000 

15600001 

r 

1072 

1073 

L> K o n AA. tl b U 

TIA 

INA 

X 2 

1 

NAMELIST ELEMENT ADDRESS TO IA) 



01304 . 

01305 

. : .01306. 

.1430 0002 

00701004 

54301261 

X 

-X .... 

107 4 
1075 

. ; . 1076 . 

..... ENI.. 

RTJ 

________-LOT .. 

2 , X 3 

FREEMEM 

.RPSAPTR,X3+PSA 

~.IT AS.FOUR.WORDS.LONG.““.“T~. " ~ 

GIVE THE NAMELIST ELEMENT BACK 

POINT TO THE PSA 


O’ 

01307 

01310 

n a *2 t •} 

53 10 0 000 
40301213 

o C o n nn n 7 

X 

1077 

1078 

TIA 

SRCHX ST A 

.. i . n a n 

XI 

T1,X 3+PSA 

,,.,....,’2 .. 

RETURN ADDRESS TC A 

SAVE RETURN ADDRESS IN THE PSA 


Q 

U lOi 1 

01312 

CoC U y u U o 
01001754 

p 

1 Ur * .. 

1080 

UJP 

" UJAC ....* .. " r '"" . 

SRCHFDRX 

btl 1 r Ht r J. llt A nt 

SEARCH THE FILE DIRECTORY FOR IT 



O 


































o 
o 
o 
o 
Q 


o 



O' 

o { 

o 

33 


o 


DELETE 


77777B 

CORE+FDSYM,XI 

-1 -- 

C ORE + FOCOATE » Xl 
0 

C ORE + FD TFLy X l ~ 
SFQLKS,X2 
SRCHRWT 

"2 ' . . 

ERROR 

ERROR 

-TPdtKS TX1— 
SF3LKS,Xi 
5 

ERROR 


t 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


._......._.:.........__. z o 

CLOBBER THE NAME 

1 FILE. BLOCK.FOR.THE.KAMI.-. .-.- 

SKIP IF DATA IS PRESENT 

.GIVE THE USER. CRB'DTT T" . 

FILE BLOCKS _ 

REWRITE THE DIRECTORY BLOCK W 


REMOVE THE.SCRATCH.BtCOK'S'———————— 

RESTORE THE SAVE FILE TOTAL ^ 


f 

o 


uG 


O 
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1101 
1102 
1102 
1104 
110 5 
1106 
110 7 
1108 
110 9 
1110 
1111 
1112 


REQUEST 


FDZAP 


V- * V* ** 7 * * * *.'*'•*W 




* -7 * *• ■* ¥ # # * ¥ V * » * 

V- 


FDZAP 


THIS ROUTINE IS ENTERED WHENEVER THE LENGTH OF A FILE OR 

RAF IS CHANGED.' ITS PURPOSE IS TO UPDATE.THE FILE DIRECTORY 

ENTRY CORRESPONDING TO THE FILE 


.ENTER WITH .'. . ......■'.* 

XI = POINTER TO FRQPER FILE CONTROL BLOCK * 

-— —X2-- RETURN ADDRESS - - - - -— -.*- 

X3 = PSA POINTER * 

* 

V AM- -7 ¥?r •tHMMMMMMMMMMMMMMMf' *¥■•¥•¥• 7-(MM! »»»»»# VW 


01333 

21 10 0 0 04 



1415 

FDZAP 

LDQ. 

CPP, X1+CN8LK 


0133 4 
01335 

..... 04334 . 

27001277 
03002123 
.5.3.2-0-00 04- 

X 

P 


1116 

1117 

. 1418. 


I Hi 

AZJ t EQ 

.... 

~. STB ...*. 

RX2 

-.x? .-.-...-. 

IS THE FILE SAVED 

EXIT If NOT 

.DCTlLDMin 0 R F •? s.in.! A l .-. 

01337 

01340. 

40377777 
5310 0 GOO 

X 


1119 

1120 


STA 

TIA 

F7,X3+PSA 

X1+GN8LK 

SAVF IN THE p <; . A 

CONTROL BLOCK”ADDRESS TO THE 

U1341 

01342 

01343 

^ U O U 0 Cm X i 

77650001 

44377777 

X 

X 


.1. X c. X 
1122 
112 3 


' '' Sift....... 

PFA 

SWA 

X x f a 3 + P S A 

PFLOC+PFR 

P Fi*X3+PSA 

* — ..~~.*....:—.... 

01344 

01345 

.-.,. 01346 . 

20 301310 
40 377777 
.14.7.04-363... 

X 

X 

. 


1124 

1125 

..442-6. 


LOS 

ST A 

_E$a_... 

.tt»x3+fss.-. 

PC,X3+PSA 

..P-OZA-R..B.2 ._.- 

LOAD THE RETURN' ADDR£SS‘”ANO"S£T ' 

AS THE USER7S CURRENT FC 

..SF-T T-HF . RETURN FROM ThF. FTLF . 

01347 

01350 

41301344 

20301235 

X 

X 


1127 

1128 


3T Q. 

LDA 

I1,X3+PSA 

NAMELIST,X3+PSA 

DIRECTORY SEARCH 

POINT TO THE NAMELIST 

. 01351 

01352 

01353 

63 60 0 0 00" 
53 10 0 0 00 
.36_2.PJQ0.01_ 



' 112 9. 

i 130 
ilol 

r 0 k» a F Q i 

1 AI 

TIA 

SCA 

X A hE-LS ! 

Xl+CNBLK 

1 ,X2+NAM£LST 

NAMELIST POINTER TO X2 

CONTROL BLOCK ADDRESS TO (A) 

IS THIS THE RIGHT NAMELIST 

0 1354 
01355 

. .. . 01356 . 

05600301 
02601360 
..£0-20-0-000- 

p 


.1T3Z.. 

1133 

. .1134_ 


AS b 

IJB 

lda __ 

*+3,X2+NAMELST 
_0 , X2+NAMELST _ 

.'ELEMENT... SKIP IF NCI ..... 

THIS WILL ALWAYS JUMP 

GET- . T-HE . NEXT POINTER .-..-.. 

01357 
0136 0 

., 

01001351 

25200003 

-1X9 7 7 777 . 

"p~ 


1135 

1136 

, ... i i 2,7_ 


UJP 

LOAD 
* - . 

FDZAP01 

2+1,X2+NAMELST 

GET THE FILE NAME 

., ,g.g~Q.|_Eg..,. , T fci'lut C A T-A <T. C. - O.CJT”4,L.&KS , , . , , , , , 

U JL O D X 

01362 

01363 

iHc f f / f i 

0100 1 755 
2 Qt 201345 

A 

p 

X 


ilO ( 

1138 

1139 

FDZAP02 

. C.H'i. . 

UJP 

LOA 

K C I tJKNi X C 

SRCHFDRZ 

PC, X2 

ENicR SHE IrntulAit RE I URN 

GO SEARCH THE FILE DIRECTORY 

RESTORE T1 

01364 
01365 

...01366. 

40 201347 
53200000 
. 15.601337 . 

X. 

...X.... 


1140. 

1141 

.1142. 


STS' 

TIA 

.TNA_ 

TI, X2 

X 2 

.F7 ..-..-.....__ 

PSA ADDRESS TO (A) 

.POINT TO-THE F.7... M.QRB. . ; . 

01367 

01370 

, jv-i *?7 1 . 

40 201363 
252Q1233 

,. ,M CLSk n 4. Q O •? ■ 

X 

X 

„„V 


1143 

11 4 H 


ST A 

LDAQ 

r 

LDA 

UJP 

PC, X2 

A ,X2 

- - T K -V C* • . ... 

SAVE AS THE PROGRAM COUNTER 

GET THE FILE NAME 

-U C >„X M. ..T .... .. , , ,, , . .. , , 

ijlOf 1 

01372 

01373 

H'D CU 1 CC C 

20201341 

01001445 

A 

X 

.p. 


.A. .4. “t 0 

1146 

1147 


! 'Zf-3 AC 

11, X2 

PX 

bAvu In !j 

LOAD THE CONTROL SLOCK ADDRESS 


o 
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PAGE 21 REQUEST 


FILE PROTECT 


01374 
01375 
0137 6 
01377 
01400 

01401. 

01402 
0140 3 
0140 4 
01405 
01406 
01407 


05 10 0 0 01 
01001077 

-g-fl-i-fl-fl-ra-g- 
53 50 0000 
40 301160 

Tcmromre. 

12000003 

• 0330-1323. 

12077755 

17600017 

14700012 

04600001 

n^Kn-i xox 


0142 5 
u 1426 
01427 
01430 

~'0T'43T. 

01432 

-01433. 

01434 

01435 

01436 

01437 

01440 

01441. 

01442 
01443• 
01444 
01445 
-01-4-4*6” 
01447 
01450 

.01451 

01452 

01453. 

01454 
01455 
01456 
0145 7 
0146 0 

01461. 

0146 2 
01463 
01464 
01465 
01466 
01467 


20301350 
01001433 
53100000 
35200002 
05600001 
01001435' 
20200301 
536Q0000 
02601426 
14 601437 
ui00131Q 
20 00141 • j 
35104006 
'40 10 4 0 06' 
20104010 

.0330 O-ZSQ- 

20201400 
5370 0000 
2 0 30 00 0 7 
401040G7 
20300006 

. 13077750 -. 

53020037 

^4..0-.ia40.-0..4. 

05500000 
40104010 
2 0 30 0 0 04- 
12 000 001 
13077776 
41104006 
20300001 
...-4-0...1Q..4..Q.-0.5-. 
02602124 
53300000 
14300003 
00701305 


1151 

1152 

1153 

1154 

1155 

1156 
115 7 

1158 . 

1159 

1160 
1161 
1162 

1163 

1164 
1155 
1166. 

1168. 

1169 
117 0 

-”ll~7i”' 

1172 

1173 

'117V 

1175 

-14-7-6- 

117? 

1178 

117 9 

118 0 


V- ¥¥¥¥¥¥■'(■ ¥9 ***¥¥¥*¥¥* ¥ ¥9 ¥ K- ¥99 ¥ V- ¥’ : ¥~¥¥~'¥"¥' : ¥~¥^¥¥ ¥¥¥¥ ¥ 

-V- * 

•*..FILE.PROTECT..-.-.«..w*.-.* 


ENI 
XREQ 


USER CALLING SEQUENCE 
PP+Xl -p-p***- 5 

LUN 

ENTER WITH... ". : . 

= POINTER TO FROPER LUNLIST ELEMENT 
.PSA.POINTER .. . 

ERROR CODES 

-LUN--IS- -NOT EGUIPPee.. 

LUN IS NOT A FILE OR RAF OR 
FILE IS DESTRUCTIVE READ 


¥¥¥¥ ¥¥¥¥ ¥¥ ¥¥¥ ¥ ¥¥ ¥¥¥ ¥¥ ¥¥ ¥ ¥ ¥¥¥¥¥¥¥ ¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥ 


ISG 

UJP 

LOA. 

TAI 
ST A 

TOT"". 

SHA 

~AZJ.fL.T- 

SHA 

ANA 

ENQ. 

ASE 


1.X1 

ERROR 01 

"2, XI. 

Xi+CNBLK 
T4.X3+PSA 

‘E'P'P'j.XT+CHTSOT 

2 ■ 2 0 

■ ERROR 02. 

-15-23+20 
HTMA5K 
HTRAF ' ' 

H T FIL £ 


SKIP IF THE LUN IS EQUIPPED 


LOAD ADDRESS CF THE CONTROL BLOCK 


CHECK FOR DESTRUCTIVE READ 


MASK TO THE HARDWARE TYPE 


1193 

1194 

1195 

1196 
119 7. 
119 8 
1199 
....i.S/LlL 


-12 0 3‘ 
120 4 

120 5 
"I 20 E' 
123 7 
_1.2-Q.~3- 

1209 

1210 
•1211" 
1212 
1213 
42TV 
1215 
1.216 

1217 

1218 

1219 

1220 
1221 
1222 . 

1223 

1224 . 

1225 

1226 

1227 

1228 


FPQ 1 


-T-A-I-.. 

IJO 
EN A 
UJP 
LOA 
SSA 

"STA." 

LOA 

.A2 J-j-LT- 

LD A 
TAI 
tC ft 
ST A 
LD A 

. 

TMA 

..SIA....__ 

QSG, S 

STA 

LDA 

SHA 

SHAQ 

ST Q. 

LOA 

STA. 

IJO 
TIA 
EN I 
RTJ 


FP02 

X1+CN8LK . 

2 ,X2 

'FPU 3. 

1 * X2 

X 2 .-. 

FPQ1, X2 
+ +2 

-‘S’R’S'H X 

£3 TT ? -i 
O I, 1 £. -O 

CORE+FDEPP,XI 
GCKE+FDEPP,XI " 
GGRE+FDCOATE,XI 

PFD.. 

T4,X2 
X 3 

TFL, X3 + CM8LK. 

CORE+FD1FL»X1 
EPP,X3+CN8LK 

"-23. 

DATE 

.CORE+FQATEjXl. 

0 

CORE+FOODATE, XI 
CPP,X3+CN6LK 
1 

-1 

CORE+FDEPP,XI. 

LP.X3+CN3LK 

.a.ORE+EDLP,Xl. 

SRCHRWT , X2 
X3+CNBLK 

3 , X 3 
FREEMEM 


JCNTRCl BLOCK ADDRESS TO A 


ENTER THE RETURN ADDRESS 


SET. THE FILE PROTECT.BIT. 

IS THE FILE ABNORMAL 

JUMP.IF.IT.IS. 

GET THE CONTROL BLOCK ADDRESS 

CONTROL BLOCK- ADDRESS TO X3. 

MOVE THE CURRENT FILE STATUS 
INTO THE FILE DIRECTORY 
TILE.CHANGE SIT TO.Q'2'3.. 

...SAME .THE-.REFERENCE.DATE... 

WAS THE FILE CHANGED 
SAVE THE CHANGE DATE 

FILE PROTECTION TO BIT ZERO 
MERGE FP WITH THE END POSITION 

SAVE THE LOAD POINT BLOCK 

.IN..THE. DXRECXCRY.. 

JUMP IF WE QCNFT WANT TO FREE 
CONTROL BLOCK ADDRESS TO (A) 

ITXS 8 WORDS LONG 


U XT X U 

.■.0T4TT. 

01412 

......04-4-1-3. 

U ^ U JL. ^ 

.ztmnmw 

03301074 

-3 5 0 010 7? 

6 

X 

.-X-..—.... 

IlUl 

IIS2 

11.83 . 

......... .-...~.-. 

HQU f 8Y 

.LDA' ' 

AZ J, LT 

...-...SSA- .—. 

X- U L. 

.C- P P, X1 + C N 6 L K. 

XREQEND 

.g_T.T2-3 .-.-.-.... 

uvnr xi nu i m ! ill un i\Hi 

.i_0AG THE STATUS WWD'...'.'...*..... 

RETURN IF ALREADY FILE PROTECTED 

....S-g-T --T H t- F O T E C T TG K hTT .......-.-..-........ 

01414 

40100004 


118 5 

STA 

cpp7xi+cmqlk 

STORE THE NEW STATUS 

01415 

77730000 


1186 

VFD 

A12/DINT 

PREVENT INTERFERENCE 

01416 

25100002 


. 1187- -- 

.. LDAQ .. 

- CO-REP, X1+CN8LK- '- 

- LOAD” THE- CORE- POINTERS .*. 

01417 

0 0 700 6 05 

X 

118 8 

RTJ 

REWRITE 

REWRITE THE CURRENT FILE BLOCK 

01420 

77740000 


1189 

VF D 

A 12/EINI 


QI42I 

'20 1000 04 


1190 

.LDA " 

CPP, X1 + CN8LK 

LOAD THE S'i ArtS WORD 

01422 

37001334 

x 

1191 

LPA 

S V8 


. 04.423 . 

. 030-0.1442 . 

. x ... 

1192 .-. 

.-.AZJ,5Q- 

.X-R'EQENO-..-..- 

.DONE.IF NOT- A - S AVED- FILE. 




















































































a 


CD 
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I REQUEST REMOVE FILE PROTECT 

.^ y ^ ^ ^ ^ ;£'J£‘ # J£' # ^ 2yt :£ ~.'.^ ^ 


O 

G 

o 

o 

o 

o 

o 

o 

o 

o 


r"-\ 

LJ 


q 2 

a 

1 o 

o. 

o 8 

"7 

a 

•o 

o 5 


1233 

1234 

1235 

1236 

1237 

1238 
123 9 

1240 

1241 
.12 42. 

12 43 

1244 

1245 

1246 

1247 
T 2 48" 
1249 

-12.58. 


_JL_ 

r 

Jr 

■.*•■. 

* 

* 

* 

—V— 

* 

~7F~' 

_ 


-REMOVE FILE PROTECT- 


LDAQ 

XREQ 


XI 

X3 


USER CALLING 

-RfP j^jr——— 

FILENAME 

LUM 


SEQUENCE 

- Rpp ^ /jr . 

ONLY IF SAVED FILE OR RAF 


1 

2 

T 

4 


ENTER WITH 

-.POINTER.TO.PROPER.LUNLXST ELEMENT. 

= PSA POINTER 

--E^f^'R~i&&DeS-^^- 

LUN IS NOT EQUIPPED 

ANOTHER USER HAS THE FILE EQUIPPED 

.NAME. IN AQ. ISNOT . THE .NAME. OF .THE. FILE .. 

FILE IS PUBLIC AND CURRENT USER IS NOT THE 


OWNER 


** <* * V* ******* if ¥*#*-**?’<*?¥•¥«*•¥-*******¥*-<****-¥-**********<9- 


* 

.. $ . 

* 

& 

—♦. 

* 

.V. 

.. 

* 

— 

...* 

if 

.A. 


01471 

G 1472 
01473 

■05100001~ 
01001077 P 
20100002 

——-1-2-5-3— 

1254 

1255 

—R'fP~—— 

~fS€— 

UJP 

LB A 

— ±~fXl———— 

ERROR01 

2 jXi 

SKIP IF ^HE-U-N'lt-EKTS-T-S" 

GET THE CONTROL BLOCK POINTER 


....GT47¥. 

01475 
....01476 

" 5T6TflTJ'BH. 

40301444 X 
.20-20 0-00 4._ 

.12 56'.. 

1257 

.1.2 58. 


"TIT" 

STA 

LDA 

X 2 

T4,X3+PSA 

.C pp,x?. 

CONTROL BLOCK POINTER TO X2 

AND T4 


0147 7 
01500 

03201423 X 

37 00 1422 X 

1259 

1260 


AZJ,GE 

LPA 

XREQEND 

SV3 

EXIT IF NOT PROTECTED 

LEAVE THE SAVED FILE BIT 


.01501. 

0150 2 
. 01503 

i» O i 0 1 J 0 J P 
20077777 X 
34200004 

.. ' 1261 "■ ■ 

1262 

1263 


A L J } N E 
LOA 

RAD 

-_^.ppg.j^.........---— 

NBIT 23 

C PP> X 2 

CLEAR THE PROTECTION BIT 


......0 1504. 

01505 
.01506 

01001477 X.. 

20301370 X 
.03,0-00167 P-.. 

.TZ'6'4.. 

1265 

...1266- 

RF.P01 

'TJ'JF 

LDA 

AZ J EQ- 

.XREQEND... 

A,X3 + PSA 

.-ERROR 03. 

JUMP IF ILL p G L ft amp 


01507 

01510 

14601511 P 
01001751 P 

126 7 
1268 


ENA 

UJP 

* +2 

SRCHFDR 

ENTER THE RETURN"ADDRESS 


....—.U15TX- 

01512 

01513 

03 ott15-31 P 
25201220 X 

33104002 

X c, o 9 
127 0. 
1271 


AZJj EQ" 
LDAQ 

S3 AQ 

E, RR 0 o 

ACCNUK)X2 

CORE + FDACCj XI 

- ----*—.- 

JUnF IF G4Anb NQ1 IN DIRECTORY ' ' 


...0T5T4. 

01515 

.....01.516. 

.is 4 troinro.~. 

0 3 001520 P 
.1.4 60-00-0 4.. 

.1272 . 

1273 

.127 A- - 

.E.RR...Q 4.....1 

.'SCTTQ. 

AZJ j EQ 
.ENA._ 

RFP 0 3 

4 

JUMP IF THE OWNER OF THE FILE 


01517 

Q152 0 

0100021? P 
20201424 X 

1275 

1276 

<4 m *7 T 

R FP 0 3 

UJP 

LDA 

SRCHERR 

NAMELIST, X2 

POINT TC THE NAMELIST 


01521 

01522 

01523 

25201505 X 

3330 0 003 

1. • . 

1278 

1279 

RFPQ4 

—tJCfr 
LDAQ 

SB AQ 

-~tCrP-£r.5““ — — 

A ,X2 

3 ,X3 

LOAD THE NAME 


-.0T5ZIT' 

*.I3WSWB....*. 

.■ 128 0 “ 


“S'CA'Q'”” 

Q - : . 



01525 

03001533 P 

1281 


AZ J * EQ 

RFP07 

JUMP IF FOUND 


._.......01.526. 

.2.0-30-0-0-3-1. 

....1282__ 


f DA ’ 

.1,X3. 



01527 

53700000 

1283 

RFP 05 

TAI 

X 3 

POINTER TO X3 


0153 0 

02701522 P 

1284 


IJQ 

RFP 94 ,X3 

LOOP THRU ALL THE NAMELIST 


—-“——0153^1“ 

~1* 4 600003 

' 1235 ■ 

..E-RR0-3- 

L N A 

3 



01532 

01000217 P 

1286 


UJP 

SRCHERR 



01533 

20300002 

1287 

RFP07 

LDA 

2 ,X3 

LOAD ADDRESS FROM THE NAMELIST 


0 1534 

.5370 0000...*.. 

.'.12 8'8. 


“TAI. 

X 3 



0153 5 

36201475 X 

1289 


SCA 

T4,X2 

CHECK FOR THE CORRECT UNIT 


.. .Q 1.53.6-.., 

.04600 000..... 

..129-0. 


,-AS-E .. 

0 



01537 

01001531 P 

1291 


UJP 

ERR03 

NAME/UNIT INCCNSIST ANT 


01540 

20104011 

1292 


LDA 

C0RE+FD3USY,XI 

LOAD THE BUSY COUNTER 


.01541 

04400001 

129-3 


ASE,S 

- ±— -—.-— 

~—----_____—___—______—_———--—*—- 


01542 

01000216 P 

1294 


UJP 

ERR02 



01543 

24001437 X 

1295 


LGA 

8IT2 3 



.01544. 

3430 0 0 0 4 . 

... . 1296 


.PAD'.. 

U PP, X 8 

CLEAR THE PROTECTION BIT 


01545 

37104006 

1297 


LPA 

CQRE+FDEPP,XI 



.01546 

.4.0.1 0 4 0 06.... 

I......1.2-98-. 


STA... 

..CQRF+FOEPP,XI. 



01547 

Q1Q02124 P 

1299 


UJP 

SRCHRWT 

REWRITE THE DIRECTORY BLOCK 



O 


,<r 

' 0 ; 

f- 

„G 

‘o 

„o 

6 

G 


,.G 


o 

O'. 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 































a 


Qj 


<3 


O 


Q 


O 


O 


O 


O 


Cl 


O 1 
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REQUtS T 


ASSIGN 


130 3 

130 A-- 

130 5 
130 6 

130 7 .. 

130 7+0 01 

1309 

1310 

1311 

1312 . 

1313 

131 A 

1315 

1316 

1317 

1317+O'OT 

1316 


'V* *ir 

.*. . 


¥ ¥ ¥¥ - * ***** * ¥'¥"¥ * ¥^ ¥'¥¥ jy: ^ ^ jgt ¥¥'¥ ¥¥ ¥¥¥¥' 

¥ 

~.ASSIGN.:._...-...- 


* 

* 

J r 

* 

JL. 

* 

* 

. ^_ 

* 

* 

* 


ENT ' 
LD A 
XREQ 


USER GALLING SEQUENCE 
ASSTGNtXI^ ASSIGN - 23 

< BCD DESTINATION C0DE> 

LUN 


ENTER WITH 

.•.Xi.-.=-~R04-NT&R-.TO. PROPER ..LUNL.1ST.ELENENT.. 

X3 = PSA POINTER 


1 

2 

.3. 


’ E R R 0 'Qi '■ 

LUN IS NOT EQUIPPED 

DEVICE IS NOT UNIT RECORD OUPUT EQUIPMENT 
“"UNDEFINED'.DESTTNATION.NAME... 


.¥. 

¥ 

& 

# 

¥ 

* 

..¥. 

¥ 

.¥. 

¥ 

¥ 

—¥• 

¥ 

¥ 

.¥. 

¥ 


¥¥¥¥»¥ »¥»¥»»¥¥»¥¥ j|^¥ ¥•»»¥¥¥¥»»¥ ¥•»¥-¥*¥•»¥ »»¥#¥¥¥¥¥¥¥¥¥•¥» 


1320 

1321 


o. 

.-0155-0- 

01551 

01552 

”0ETT155'2" 
01 00.1077 

2 0 10 0.0 01 

“P—~ 

P 

132 2 .- 

1323 

1323 + 0 01 

-A-SST&N— 

" rui . 

UJP 

LOA 


015 5 3 
01554 

_01555. 

53600000 
12000001 
.03201323 

.P... 

.'.132 3 +”0’0 2. 

,. 1323 + 003 

__. i_3?3+..o 0 4 


..TAT. 

SHA 

.47J g.C 

o . 

01556 

01557 

14177777 
14577777 
.0T56G 

X 

“P— 

1323+005 
1323+006 
—. 1323+0 0 7 

.ASSTUNOT 

ENI 

ENQ, S 
L—EQt)- 


•? o * 


o 


*+2, Xl+LUNLS T 
ERROROI 
1, Xi + LUNLST 
.X2+'cnslk. 

1 

.ERROR0-2.—. 

SENOTABL,Xi 
7 777 7 S 

—*- 1 —• —- 


IS THE UNIT EGUIPEO“ 
ERROR IF NOT 


GET.C'ONTRGC^BLGCK.POINTER”' 

ERROR.IF.NOT.UNIT RECORD. 


01572 

01573 


4420 Q 0 Q 6 
^ 01 . 0 . 0 . 150 ^ 


5:X~ 


1323+019 

1330 .- 

1331 
13 32 
-1333 


SWA 

U3B- 


EPP, X2+CN6LK 
X-REQENQ—-- 


STORE INTO CONTROL SLOCK 


«lf»» 44 44 44 4 4 44 44 444 4 4 444 44444444 * 4444 ¥ 44444444444 44444444 444 44444444444444 


1333+032 

'13 33+t 0'3” 

1333+004 

1333+005 

1333+006 

13 33+00 7 

133 3+0 0 8- 

1333+009 

1333+010 

l'333 + OI'l" 

1333+012 

1.33.3+0.13- 

1333+014 

1333+015 


” ” D E STTNATCIONT'”””--”—~.. 

.RETURNS.THE.-CU8R&RI..OE..S.X 

GALLING SEQUENCE -- 


ENI ” 
XREQ 


3 IS j XI 
<LUN> 


TMAITOlN..05—IM£_SEECIEIE-O—LUN-... 

XREQ CODE FOR DESTINATION 


RETURNS WITH A = BCD IDEM OF DESTINATION 

Xi.=__1..LUN.-NOT. EQU IPPED-. 

XI = 2 — LUN NOT A UNIT RECORD DEVICE 


4 

4 . 

4 

__* 

4 

4 

■- 4- 

4 

4 

.* 

♦ 

. 4 . 

4 

4 


4 4 44 4 4 44 44 4 4 44 44 4 44 44 444 4-444 4444 444444 44 44444 4 4 444 444444444444444444444444 


o. 


01574 P 


..0157L. 

01575 
.0.15.76. 

02101576 P 
01001077 P 

.- 20 - 1 . 0 . 0 . 0 . 0 . 1 -.-.- 

O ■'.:. 

01577 
0160 0 
n A A n i 

5360 0000 

12 00 0 0 0.1 
■ iT *7 Q Cl i O 'Cl.. O. . 

O, __ 

U JLO U i 
01602 
016 0 3 

U 0 c. U X, O c. -<j 

147Q0017 

12400017 


“.0 IS u 4 

01605 
.016 0 6 

16 777 777... 

27200006 
.14101556.X. 

Q, - 

016 0 7 

01610 

. ,, 11 x 44 . 4 ,,.. 

04 60 0 0 00 

06201571 X 

wi,,./, -1 n. n n, a n ««««*• 

Q. 

u X O XX 
01612 

XHXu UUUU 

20101561 X 


1333+017 
1333+018 
”1333+019 
1333+020 
.133.3+0 2.1 


■STINAT EQU 
TUI 


1333+022 
1333+023 
1333+024 
1333+025 
1333+026 
1333+027” 


UUP 

L-OJL 


1333+028 

1333+029 

1333+030 

1333+031 

133 3+0 32. 

1333+033 


TAI 
SHA 

AZU,G£ 

ENQ 

SHQ 

XOQ”- 

LDL 

-ENI...._ 

ASE 

MEQ 

■■ENI— 
LD A 


.v+ZyXI+LUNLST 

ERROROI 

..L«.X1+_LUNLSX.._ 


X 2+CN6LK 

1 

•"E-RRO'RfrE—— 
HTMASK 
15 

' 777778-‘-~ 

EPP,X2+CN3LK 

S END TAB L, XI.- 

00000B 
S ENQTA81,2 
-O-yXL————— 
SENDTABjXl 


3K TP.TF.LU N “EX I ST 

IMPART BAD NEWS 
..CONTROL -BLOCK—ELI. 
SO AS TO INDEX CO 
CHECK UNIT RECORD 
-dtmp-T*F~N OT~Ui#3rf“ 
BIT MASK FOR HARO 


UP TO TOP NINE 61 

MAKE.A.FULL WIDTH 

GET HARDWARE TYFE 

LENGTH OF.TABLE.I 

SKIP IF EPP IS ZE 
LOOK FOR CORRESPO 

“THEN.DEFAULT.TO. t 

BCD IDENT CF LUNX 


.N.IE.R—TO A.- 

NTROL SLOCK 
STATUS 
RECORD 

WARE TYPE CODES 
TS 

.MASK.'. 

AND DESTINATION 

C LOCK INTO.. - 

RO (SITE) 

NOING ENTRY 
SITE/ 

S DESTINATION 


.,(D 

■°a> 

,05 

y Q 

. sO 
... 6 

O 


. Ik 


O . 

01560 

01561 

20301522 
-062 73J&31 

X 

X 

■< ■ 1323+0 0 8 

1323+009 

LOA 

MEQ 

A,X3+PSA 

SENDT AB,2 


GET SYMBOL 

LOOK FOR IT 


“.0X5”6”"2. 

01563 
.01564 

01000167 
20177777 

. 0 . 30 . 0 . 1 . 5 . 7 . 2 .- 

p 

x • , 

.p.:^;b. 

.I32 3 + 0T0”. 

1323+011 

__132 3+012_ 

OUP 

LD A 

_A Z J.., EQ-_ 

.“E”R”R”0W3.:. 

SENDT AB1,XI 

.ASSIGNOR_ 


.£R”R”0”R”.3.IF.NOT.FOUND .. . . : 

GET VALUE ENTRY 

__ALLOW FOR ANYBODY (X S IT EX) .-.-. 

O ~ 

01565 
0156 6 

36200006 

12000011 

. V'f ; v 

1323+013 

1323+014 

. 0.7J. n< C 

SCA 

SHA 

... A kl A .. 

EPP,X2+CN3LK 

9 

_ - UTMAC 1/ : ., 


HARDWARE TYPE TO LOWER 9 BITS OF 

O _. 

..UX7D/. 

01570 

Q 1571 

JL f O' u u il JL / 

03101560 

20101563 

p . 

X 

1 O lOt U X — 

1323+016 

1323+017 

AZJ,N£ 

LOA 

h I rl h z k. 
ASSIGN01 

SENDT ABi,XI 


-tn-toK xr. Kibl h .HAKuKARrHifft' 

JUMP IF NOT RIGHT TYPE 

GET DESTINATION CODE 



.DT5TZ" 

.p.... 

.I”32”3+0I”8.7T3ST 

[”GN0”6”.EQU"”". 

■■■.. W . 




b 

o 

o 

o 

o 


o 

o 

o 


o 


o 

o 

o 

o 

G 

O 
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. 01613 0100 1615 F 1333 + 034 TTJP “ STA 




o 

o 

o 

o 



o 

o e 

o 


o 


AND.INFART THE.WISDOM.TO USER 
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REQUEST 


ASSIGN 


Q 

O 

o 

o 

o 

o 


o 

o 

o 

o 


o 


a 


o„ 

a 5 

cx 

o 5 

Q, 


01614.14 677 777. X 

01616 40 301560 X 

01616 010U1573 X 


1336 

1337 

1338 

1339 
13 40 

1341 

1342 
13 43 
1344 
.1345 

1346 

1347 

1348 

1349 


T351" 
1352 
-13-53- 
1354 
13 55 


“T«T 

. * .,. 

* 

* 


* 

- -PAGE-SIZE---...-.-.-.-. 


EMI 
X RE Q 


X 3 


'trseir“eM:rrMe~^*ewetiCE 

PAGESIZE)XI PAGESIZE = 24 


* 

* 

”¥ 

» 
v 

-*.- -.— 

* 


ENTER WITH 
-.=- PSA- POINTER 

EXIT WITH 

~ USERS A REGISTER WILL 3E SET EQUAlr” TO THE PAGE.SIZE 


-FOG4S-IZ-E.PO¬ 
ST A ST A 

UJP 


-W£N£P-A&£- 


A ) X3 + PSA 
XREQEf 


-ENTER.LINES/PAGE 


.CD 

v 'a 

G 

■ 9 

a 

.«o 

' 6 o 

.iD 

i: b 

o 
o 
. o 
o 
o 
o 
. o 
o. 
° 
o 
o 
o 
o 


o 


o 
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REQU EST 


ASSIGN 


Q 

G 

G 

G 

a 

o 


1358 
13 59 

1360 

1361 
-±” 36 - 2 - 
13 63 

1364 

1365 . 

1366 
. 1367 

13 6 8 
1369 
137 0 

1371 

1372 
"13 73 

137 4 

.137 5 

1376 

13 78 
1379 


....._.FILESIZE 


. 

■V* 

.................___•___ m „ . 


* 

-4* 

* 

. *£ 

* 


* 

* 

—V- 

V 

>/■ 

TT 

♦ 


-E-N1— 

XREG 


XI 

X3 


USER CALLING 

FILES T'ZEtXI. 

LUN 


SEQUENCE 

___„ FTtes . KE __ 2 . g . 


ENTER WITH ' 

= POINTER TO PROPER 
= PSA.POINTER-------- 


LUNLIST ELEMENT 


* 

v 

-*■- 

* 

♦ 

*. 

» 


» -v •< 


USER-A- 
USER Q 


1 

2- 


E XIT WITH 

-t-ENG-T-H-OP” 
NUMBER OF 


WE~PTtE— 
RECORDS IF 


ERROR CODES. 

LUN IS NOT EQUIPPED 
-LUN DOES.NOT.H AVE -A- 


UNIT RECORD DEVICE 


CONTROL.BLOCK 


* 

* 

■¥• 

* 

* 



0 1617 

02101621 

P 


1380 

FILESIZE 

IJI 

*+2,Xl+LUNLST 

IS THE UNIT EQUIPPED 




0 1620 
01621 
. 01622. 

" 01W107 7' 
20100001 
.53 50 Q 000. 

"P. 


.1T8T. 

1382 

.._.1-3.83... 


OJP 

LOA 

.PAX... 

ERROR 01 

IjXlFLUNLST 

.X1+-CNBLK. 

ERROR ONE IF NOT 

LOAD THE CONTROL SLOCK POINTER 




01623 

01624 

05100001 

01001323 

P 


1384 

1385 


ISG 

UUP 

1.X1+CN8LK 

ERR0RG2 

SKIP IF A CONTROL BLOCK EXISTS 




U 1 62 5 
01626 
01627 

2 0 10 0 0 0/' 
21100000 
Q1Q01703 

JP. 


1 03 O 

1387 

1388 


"trDAr 

LDQ 

UJF 

fr tj Xl+oNoLK 

A CCWORO»Xl+CNBLK 
STAR 

LOA0 THE FILE L EWET H_____ 
GET NUMBER OF RECORDS 

SET THE USER/S REGISTERS 




k cd 

r» 

'0 
■ t? 

.,o 

3 a 

• £ 

hO 

6 

o 

01. ’ 

,.o 

5l o 

o 


o 

o 


o 


o 


o 

o 

o 

o 





o 9 _^__..._________,____________________________...-.... o 



o 


o 
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TIME REQUESTS 


0 163 0 

G1631. 

01632 

01633 

01634 
01635 
01636 
0163 7 


01640 
016 41 
01642 
01643 


20301615 
21377777 
03701634 
13 00 0-0 30 
01634 
03301636 
50 077777 
40 3 7 7777 
01001616 


20 377777 X 

.31377777.X. 

21301631 X 
01001703 P 


1392 

1393 
139 4 
1395 

1397 

139 8 
1399 

140 0 
14 01 
1402 
140 3 
140 4 
140 5 
140 6 
14 07 
1408 

1410 

1411 

1412 

1413 


if. if. jf- 'j- if. 'f. i 
* 

. * .... 

*¥• 

V- 


. ^ if >f. 3;. if. if if. if. if if 'if . 

* 

.TIMESET——u—PROCESS.A .TIME.LIMIT.SETTING.REQUEST... .* 

A CONTAINS THE REQUESTED TIME IN SECONDS * 

* 




i I MESET 


IMES2 


LOA 

LDQ ‘. 

AQJ,LT 

SHAU 

EQU 

A2J,LT 

'MUA~~— 

STA 

UJP 


A.X3+PSA 

TIMLIN",X3 + PS A. 

TIMES2 

.24------ 

a, 

* +2 

•o two—-—---- 

TRUNTIME,X3+PSA 
XREQEND 


GET THE REQUESTEO TIME 

GET.THE MAX ALLOWED FOR USER 

IF REQUEST MORE USE LESSER 
PUT LESSER IN A----- 


SKIP MULTIPLY IF NO TIME AT ALL 
CONVERTTCMILLISECONDS 
SET THE MAX RUNNING TIME 
SKIP AND INDICATE NO ERRORS 


* TIMERSQ — PROCESS A REQUEST FOR THE TIME LEFT * 

_*-:-Re-PURN-S-Wf^-H.-A~-=—T-I-ME.-UEEO~'FOR“RUW———- 

* * 

4, **A,ArAf-A,Af AAAF »»»¥«••» *A,A,A,4, A,-* ** A, A, A, A, **■ *♦»*»♦.**♦*!!•♦»♦*»**■»»* 


IMEREQ 


T OTALTIM,X3 + PSA 
TIMELEFT,X3+PSA 
T IMLIM,X3+PSA 
STAG 


PUT.THE.TIME.USED.INTO.A 

LOAD THE UPPER TIME LIMIT 
RETURN 


01644 

01645 

01646 

01647. 

01650 
01651 
01652 
0165 3 
01654 
"31655- 
01656 
..0165.7... 
01660 
0 1661 
0166-2“ 
0 1663 
01664 
01665 
01666 
...0.16.67... 
01670 
01671 
01672 


01644 
24377777 
TE’QTrO O'Q'4' 
35301145 
-.0320.1132. 
14677777 
37301630 
03001637 
40 301651 
14677777 
'3437 777?' 
14677777 
77 73 0 G U0 
35077777 
40 001660 
20377777 
12000005 
03201652 
0 4 2OW0r 
01001664 
.2 0 07 7 7 77 
3537777? 
40 30.1670 
-8-4-M-dr6fcGr 



1422 

._.1423.. 

■if 

-DE-LA YR 


142 4 

•¥* 




4MMHF * * * * * 

^ **** *** 


.142 6 



p 

142? 

DELAYREQ 

EQU 

X 

142 7+001 


LC A 


.1427+002 - 


SHA 

X 

1427+003 


SSA 

...p____ 

—..1..427+..0...0.4 

_____ 

_A.Z-U..*..G£. 


V-V + AETATA, ***-****■****** ¥ A, A, * AM, AM, Af A, A,** A, 

* 

DELAYREQ——SET.USER.ICBOUND.FOR. CCA) .SECONDS -.—... 


1431 

1432 
14 23 
14 34 

143 5 
'X43F 
143 7 

1.4 3.8-- 

1439 

1440 

1440+001 
1440+002 
1440+003 
TOTFBW 
1440+005 
.14 40+.0 06.. 
1440+007 
1440+008 
1 4 4 1 -. 


ENA 

LPA 

AZ J, EQ- 
STA 


STA 

“LUA 

SHA 

AZJ,GE 
TSE 
UJP 

LOA—.... 

SSA 

STA. 

"UUP— 


* 

S YSCODE,X3+P SA 

~z3=nr~ . _ . 

SYSCM,X3+PSA 
ERRGRG6 
TIME-MASK 
A, X3 + PSA 
“XREQEND 
A,X3+PS A 
TIMEWAIT 

.ID B OUT! D»X3+PSA 

SW3IT 

-A- 12 AO..IN.:i_____ 

FLAGS 

FLAGS 

- L JA, X-3+P5 A.— 

2 3-18 
XREQEND 

innnrxsrx? . 

XREQEND 

-axxxa___ 

CR,X3+PSA 
CR,X3+PSA 

“XREQEND-—•—--- 


AM,A,AM,A,4fA,4,AF A, A, AfA, A, A, A, A, A, A, A, A, AM, A, A, A, 4, 


GET NOT BATCH BIT 

'MOVE TO'POST. 7 . 

OR IN CNTL MODE SIT 

IL LEGAL IF SAX- CH A NO N OX C NT LM Q DE- 

MASK FOR TIME DELAY 
MASK REQUEST SIZE 
IGNORE IF • z-E-R'Q-——— 

USE THE USERS A REGISTER 
DELAY BIT FCR I08CUND 

"SET INTO 1080UND WO R D...*... 

SWITCH USERS BIT 

UISA8i.£. FURTHER FLAG CHANGES. 

OR IN PREVIOUS FLAGS 
AND RESTORE 

GET--SYSTEM "CODE------- 

SHIFT TV SIT INTO POSITION 
JUMP IF NOT TV 

"SKIP.IF HE.WANTS.TO.RE-WRITE.TV. 

THEN FLAKE OUT IF NOT ' 

"SET.WIT I.ENABLE.ON.TV." 

■E-Ne~~&F—PR-eees-S““”——— 

































FILE SLOCK REQUESTS 
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1445 

..........*1. Ll Li. & . 

CD 




1447 

1448 

3 . 

01673 

2 0 3016 53 

X 

1450 

1451 


".01674. 

01675 

.01576. 

2137 7 777 
03701677 
. 1 . 3-0 0-0 0 3 0 

X 

p 

1452 

1453 

... 14 . 5.4 . 

O . 

01677 

01700 

40 301265 
01001672 

X 

X 

1455 

1456 

O 




1458 


* ' 



1460 
14 61 

. . .. .14 6? 

O ““. 




14 63 
1464 


1464 

-1465“ 


O . 




1467 


01701 
01702 
.017.0-3—.. 

20301272 

21301327 

... . 4 . 5.3 .Q... 1 &. 7 .. 3 .. 

X 

X 

x.... 

14 68 
1469 

.I. 4 . 7 ..Q. 

O . 

01704 

01 00 1700 

X 

1471 

1472 

O 




1474 

1475 

. . 147 6 

1477 

. iii7J. 

O 




1480 

O 

01705 

01706 

01707 

20 30 1 0 G 
21301165 
01001703 

■ A 

X 

p 

.....1481.. 

1482 
148 3 

1484 


O 



-i48 6 

1487 

I486 

O 

01710 

77730000 

1490 

1491 


.01711. 

01712 

.0T7¥F5¥I.X.'. 

01QQ1704 X 

.iwr 

1493 

______.l;4.g.,4-. 

0 



1496 

.- - ±49'7 

1498 

_____1499_ 



..01713.P..-.. 

1501 

......15 Qg 

a ,_ ". 

.01713. 

01714 

20301674 X 

01 00 1702 P 

1.50 3 
1504 


i o — 


o 9 



29 


REQUEST 


V- ¥ 

* MF3LKSET ~--—SET -THE MAXIMUM ALLOWED FILE BLOCKS FOR A RUN * 

* A CONTAINS THE REQUESTED NUMBER OF FILE BLOCKS * 

v- * 

V A‘ •¥••»■¥•«•*■ V ¥ jf v. ■>#» **•* WW* Wf V ¥ *-»•> #¥ -V-^ -¥■ -V- V •¥ WVV-WWW 


MF3 LKSE T L DA 


LDQ 

AQJ,LT 
SHAQ. 


A.X3 +P SA. 


MF3LKST 2 STA 
UJP 


M F-3LK LI ti, X3+ PS A 
MF3LKST2 
2 4 


GET THE MAX ALLOWED LIMIT 
USE WHICH EVER IS THE SMALLER 


MFBLKS,X3+PSA 
XREQEND 


SET THE MAXIMUM SCRATCH LIMIT 
SKIP AND INDICATE NO ERRORS 


♦*»¥» ¥4 ^ *1) »»*»»•»» 

w ~ ■ " ■ .: “ : ' ~ r w 

♦ MFBLKREQ -- PROCESS A REQUEST FOR THE MAXIMUM NUMBER OF * 


F ILE 8 L OCKS _USED 

* EXIT WITH A = MAXIMUM USED FILE SLOCKS . * 

* EXIT WITH Q - NUMBER Of FILE SLOCKS NOW USED * 

*** •* ■**••** ** * * * *■ * * -* & * *■¥ ■*■* *-S--*#****¥-*»-#-*-**¥****»**-¥****¥-¥- 


MFBLKREQ .LOA 
MF3LKR01 LDQ 
-STAQ..STAQ 


UJP 


TF3LKMAX,X3+PSA 
T F3LKS,X3+PSA 

A,X3 + RSA - _ 

XREQEND 


SEE WHAT THE USER CHEWED UP 
TOTAL NUMBER OF USED BLOCKS 
-SI-ORE-.INTO-.-THE.USERS.AQ 


SKIP AND INDICATE NO ERRORS 


~W'**-*-***’**-**-*’*-*+' •**-*•*•* if-*-****-*^*^**^*-*** **^-* **-*****■■*-**■*■*■** 4MMMMMM* 4MMMMMF" 

V * 

+ .SF6 LKREQ PROCES S A REQUEST FOR THE TOTA L NUMBER OF * 

WriWfi M .W 3 JL 4 M »« M »W’WW r W‘> , %WWWt M .W r 

* 

_*_ 


^SVElTTIDE^OJCrKS.USED” 

RETURN WITH A = NUMBER OF USED SAVED FILE BLOCKS 


* 

_„:__._ * 

q.2f. jf.if. jf.Jif.3ftf. ?.jp if jfjf if Jfjf if if if ¥ .jfjfjf.ifjf.fifjf » y. >f3f Jfif -SMMMM* 4 ¥¥ ** 


•~SF*3 UK RE Q "' L D A .S'F3LK~STX'3-rpFA“.". TOTAL.'NUMBER".OF.■ S -AVED-"FTtE'“8tC'DKS'' 

LDQ SFBLKLIM,X3+FSA LOAD THE SAVE SPACE LIMIT 

UJP STAQ LOAD 


Jfjfflf j flfjfjf jfjf Jfjf3f3f3f3fjf^f'3fjfjf jfjfifjfjfjfjfjflfjfjf jfjfjfjf jfjf f 14 f * 4 , jflf 4 * 4- ♦ * 4 . 44 * 

* '. .__....__.....__..._................JL. 

* ..PURGE” — ‘remove ALL CHARACTERS FROM THE PARAMETER STRING * 


PURGE 


VFD 

”RTJ” 

UJP 


A12/DINT 

PCffARS. 

XREQEND 


.If ^ -If 4c 41 ^ 41 JfJjf ^ 45, JgL ^ If Sf '4L 4* jflf. 4j£. 4F $ 44 J£. -ap ^ .J§£ * 4F & if 3 f %. JfJf Jf. Jf 4 f Jf 'if if J£ 3 f 3 £ If jg. ,gL Jf ;# Jf. Jf Jf Zfjp 3 f. 1 fipip 

¥ * 

♦ ...GFQLKREQ-* RETURN * MAXIMUM USABLE" SCRATCH IN A * 

* 'AND TOTAL CURRENTLY IN USE IN Q * 

■Jf 4 

.¥ ¥ « 44444 W llll imfl 4 W 4 W 1 4 4 44 444444 4 4 44 4444444444 4 4444- 


-.CF8LKREQ-.EQU_ 

LDA 
, UJP 


MFBLKLIM,X3+PSA 
MF3LKR01 


GET MAXIMUM USABLE SCRATCH 

AND GET WHAT IS CURRENTLY IN USE 




































A S3EM3LER/0S3 


0 9/2 A/7 4 


PAGE 30 


REQUEST 


MEMORY REQUESTS 


O 


a ; 


01715 P 


01715 

01716 

01717. 

01720 


01715 
T4d0T7T2’ 
0 520 0 0 43 

.04077777. 

01077777 


01721 

01722 

04723. 

01724 

01725.. 

01726 


53200000 

21301671 

X2~44W~0T 

13077776 

.41.301.722.. 

01001715 


01727- 
0173 0 


01727 P 
25301512 X 
01001703 P 


01731 

01732 

01733 

...0.173,4. 

0173 5 
0173 6 
01737 
01740 
01741 
01742 
01743 
0174*+ 
01745 
01746 
0 1747 
01750 


01731 
20300775 
13077774 
12400006 

.1.7.6 0.0.07.7. 

17700077 
52 301.703 
01001323 
01001077 
21301736 
46577777“ 
53040000 
3.407 7777.. 
12000006 
16477777 
34304731 
01001726 


1508 

.1509 . 

1509+001 

1511 


¥¥' : ¥¥¥' : ¥¥'¥''¥'¥^ ¥¥ ¥ ¥ ¥¥' " tf. Jj. lf }£ if Jf'¥¥ ¥ <¥ i/T# ¥ ¥" ^ ¥ ¥¥¥ ¥¥¥ ¥ ¥¥¥¥¥¥ 

¥ ¥ 

* ......FREEPAGE ~.-ROUTINE TO.SAY USER.DOES.NOT-.GAPE.WHAT.IS----.-. ■* 

* IN A PAGE OF MEMORY. * 


—SI. * *.*«***,.*.**■***.* 


1513 

1513+001 
.1547. 

1519 .- 

1520 

1521 

1523 

1524 

152 5. 

1525+001 
4527._ 

1528 

1529 

1530 . 


1534 

4-53-5- 

153 6 

1534 

1539 

1540 

1541 

1542 
-154.3- 

1544 

1545 

1547 

1548 

■ r5 i»-rg" 

1550 

T552~ 

1553 

1556 

1557 

4 >» C ”7 J 


FREEPAGE EQU 


ZERO NGW ANYWAY 


**** **** * * *** ** **** ******** * ¥ * * * * * ** ** ¥ ¥¥¥*¥¥¥¥¥¥¥¥ ******* ********** 

* ______________.4._...:.____________,..* 

* ZEROPAGE — ROUTINE TO SET A PAGE OF MEMORY TC ZEROES * 

* * 




¥ ¥ ¥¥ ¥ ¥ ¥ ¥ ¥¥* ¥¥¥¥¥¥¥¥*¥¥¥¥¥ ¥¥¥¥¥¥ 


ZEROPAGE EQU 

.ENA' 

ISG 

.-.-.UUP. 

UJP 


XREQENU 
NP.U, X2 
Z-EROP-G— 
A SORT 


************* 
* 

-V PM P 


RETURN.ADDRESS 

SKIP IF AN UNREASONABLE PAGE 

WeeTeEEEEE. 


********************** ** ********** 

* 

--- , ..-. 


* RWF -*“■ REMOVEMEMORY.PROTECTION .~..... 7 .~.*“ 

+ SET THE MEMORY PROTECTION BIT EQUAL TO THE LOW ORDER BIT IN * 

-3L_ THE ADDRESS OF THE XREQ-.- ------—- * 

* * 
************ ******* ***** ***** ***** ********************* ********* ********** 


TIA 

LDQ 

"S'fl'Q 

SHAQ 

-S-T-Q.— 
UJP 


X 2 

C R, X3+PSA 
1 .. 

-1 

CR.X3+PSA 
XREQ END 


ADDRESS FROM THE XREQ INSTRUCTION 
LOAD THE CONDITION REGISTER _ 

SET PROTECTION BIT AS REQUESTEO 
-.STORE.THE.CONDITION.REGISTER.BACK 

RETURN 


********************************* *********** ***** ***** ****¥********-» 

* 

* JOBNUM -- REQUEST THE JOB/USER CODE OF THE USER ■ 

"*.“ ~ THT5"'"'1REWEST^^ TH E U S E R IS IN ' C O N T R O L' M O D E 


** .*,* .** »♦»» » ¥ * * 5 

JQSNUM EQU 
LOAQ 
UJP 


* * ¥ * * * * * * ♦ M * * * * ¥¥¥*¥* ¥ »** * * ¥ ¥ ¥ ¥ ¥ ¥ **¥*... 


ACCNUM jX3+PSA 
STAQ 


1557+003 
1.5.57.411-0.4- 
15,57+005 
1557+006 
1557+007 
1,5 57+0 0 8 
1557+009 

1557+010. 

1557+011 
15 5 7+012- 
155 7+013 


1557+016 

1557+017 

1557+018 

1557+019 

1557+020. 

1557+921 
1557+022 
4 557+0 23 
1557+024 
1557+025 
1557+026 
1557+027 
1557+028 
1557+029 
1557+030 
155 7+0 31 
1557+032 


¥ 

_1_IA££HAX_a^s_SET—-THE- jOX XNUM . X -AilES- X . M AT.~XAN BE ESDIPPED .- *- 


ENI 

“ENA 

XREQ 


308,XI 

■<NEW“ MAXIMUM- 
O 


. "ERROR 'CODES ' . . . 7““ 

1 SET LIMIT LESS THEN CURRENT USE * 

-2---SEX.GREATER.THAN MAX.SCHEDULED------*. 

* 

• ************************************************************** ********** 


APEMAX 


EQU 

LDA 

"Sfmtr. 

3 HQ 

-ANA..._ 

AMQ 

CPR 

HJUP— 

UJP 

LDQ 

XOQVS 

AQA 

.RAO.... 

SHA 
XO A , S 
RAB— 
UJP 


UTAPEMAX,X3+PSA 

"-"6.... 

6 

-xza__ 

7 78 

A , X3 + PSA 
•ERRQR02 
ERRQR01 

A ,X3 + PSA . 

TAPES AVI____ 

6 

-0 

UTAP EM AX, X 3 + F S A 
XREQEND 


MAXIMUM.SHED.IN.-A...... 

PRESENT IN USE IN G 
SEE IF IN RANGE 
GREATER THEN MAX. SCHEO. 
LESS THEN CURRENT USE 

NEGATE.NEW LIMIT.... 

FOR RELETIVE CHANGE 
.MAKE.ANY.TAPES.FREE.. 

MAKE CHANGE TC MAX 
-CHANGE.USERFS. MAX-™—~—~ 


O 









































ASSEM3LER/0S3 


09/24/74 H122 PAGE 


REQUEST 


FILE DIRECTORY SEARCHES 


o 


1561 

1562 

1563 

1564 
15 65 
15 66 
1567 
156£ 
1569 
157 0 

1571 

1572 


4 4 4 4 4 * ■¥■ 4 

¥ 

* ....flM P Ml 


-¥¥¥¥¥¥ ■ 


* 

TV.PKITP Y.....-..*... 


ON ENTRY..A 23 SEZ.THAT.THE USER KANTS AN EMPTY ENTRY 

A14-0 HAS RETURN ADORESS 

ONEXIT C ORE + (XI) POINTS AT THE REQUIRED ENTRY 
X2 HAS PSA POINTER 

FILEDIRECTORY. REFERENCESAREQUEUEDTHRUT2INEACHPSATHAT 

WANTS THE FILE DIRECTORY FOR SOME REASON 


AFTER PROCESSING THE NEEDED INFORMATION CONTROL MUST BE PASSED * 
TO EITHER SRCHRWT (TO REWRITE THE DIRECTORY SLOCK) OR * 


m.. 


02026 
0 2027 
02030 
0 203 1 
02032 
02033 
0 20 34 

.02035. 

02036 
0 203 7 
0204 0 
02041 


03702030 
14 60 G 0 0 0 
40002243 
14101000 
30 077777 

T300E035. 

77650001 

. 12Q-0....0.0..11. 

1300 0 030 
77730 000 
00 77 7 777 
20 002246 


1627 

1628 

1629 

1630 
16 31 

1632 

1633 
1534 
1635 
163 6 
1 637 
1638 


AQJ, L 
■ENA 

FDIC ENI 

AO A 
SHAQ - 

PFA 

_SHA - 

SHAQ 

VFD 

RTJ 

SRCHRSTR LOA 


* +2 
0 

ADDRESS. 

WPF8,XI 
FILEDIR 

24 - 

P FLOC+PFR 

.9. __— 

2 4 

A12/DINT 

-FINK— 

pfsave 


JUMP IF WITHIN THE FILE DIRECTORY 
RESET TO THE FIRST BLOCK 

READ 1 FILE BLOCK 

RELOCATE TO THE FILE DIRECTORY 

BLOCK.ADDRESS.TO.(Q)- 

QUARTER PAGE NUMBER TO (A) 

FORM.CORE.ADDRESS. . 

PREVENT INTERFERENCE 

GET THE ORIGINAL CONTENTS OF 


o 




——— ±5-7-3 —* 

15 7 4 

******* •* ** 

q- jp? q 0 "|^~ P URT H E R - Q U E U E- ^ R e etS S^' N^i - 

if if Jf w if & if***'* ** W 


wm i 

_«o 


01751 

0175? 

21000104 

....45 3(11 lf>4 

X 

v . . 

.15 75. 

15 7 7 

,. 1 .C 7,R. 

SRCHFDR LDQ 

... CJ Ap .. 

EXEC INST 

.Ti V X + pci........ 

GET THE USERFS INSTRUCTION 
.c/L UP .TT.AND.XH-R—RETUR-N.ADDRESS. 


. 6 

o 

01753 

01754 

25301741 

14201750 

X 

X 

1578 

1580 

LDAQ 

SRCHFDRX ENI 

A,X3+PSA 

XREQEND,X2 

w n v c,. x $ w n u 1 n Ih u s v»/ i \ n u> u 1 >■ u. **t 

GET THE FILE NAME 


O 

O i 

o . 

01 S 5 5 
01756 
01757 

45 UU 1 371 
1460 0 000 
40 37 7 777 

A " ' 

X 

.■ . 1581.. 

1582 
158 3 

S K u H P u 1 \ 4, S 1 A U 

ENA 

STA 

I 5 , X 3 1 p S A 

0 

T3» X3+PSA 

fl“SWSTT... 

IOBOUNO 1 X3+PSA 
.. A17-/0INT ..-.. 



.. O 


..~0T76T~ 

01761 

..._3_i-7-6-2— 

" 1467 7777 
34301655 
77 73 0 000 

X 

X 

158 4 
1585 

.. . EM'S.'. 

RAD 

.........yipn ____ 

FELL"OURSELVES THAT THIS GUY IS 

WAITING ON MASS STORAGE 
. PREVENT INTER F-E-RE-N-CE- .-. 



O . 

01763 

01764 

14601656 

35001661 

X 

X 

... .. 

1587 

1538 

ENA 

SSA 

SW 8 IT 

FLAGS 

SET THE FLAGS TC INDICATE THAT 

SWITCHING MUST BE PERFORMED 


' O 

o . 

... 0176 5." 

01766 

01767 

40001764 

54102242 

47302242 

X 

p 

p 

.a p " v 

1590 

1591 

..... ... Si A . 

LDI 

STI 

r LAGS - . ' 

SRCHQEj XI 

S RCHQEj X3+PSA 

GET THE QUEUE POINTER 

PUT THIS USER INTO THE QUEUE 


. O 


01 77 O'" 

01771 
.0177-2 

025G 2121 
47202240 
—47 30 2? 41- 

p 

p 

_p . 

159 2 

15 9 3 

. 150 4 . ; . 

i jo 

STI 

.:._....sTi .. 

S R*C H i 0 » X1 

SRCHEXIT? X2 

S PCH09.X3 + PSA 

JUMP IF THE QUEUE WAS NOT EMPTY 

SAVE THE RETURN ADORESS 
..SA VE THF PSA -P-GINFP IN..SRCHQB.-.. 



o 

01773 

01774 

14702006 

14601776 

p 

n> 

r 

1595 

1596 

ENQ 

ENA 

SRCHCWT 

* +2 

ENTER THE INTERRUPT ADDRESS 

ENTER THE IMMEDIATE RETURN 


O 

o. 

01 rr5 
01776 
01777 

0107? 777 
03 30 2.240 
77 64 Q G 01 

P 

139 7. 

159 £ 
159 2 

.■ ... UJP. 

AZJ .IT 

SRCHPFLD APF 

.. bETi-iUf F..... . .. 

SRCHEXIT 

P FLOG+PFW 

GF T h F 1. L £ G 0 H H B L C G K 

RETURN IF NG CORE 

LOAD THE PAGE FILE WORD 1 


- O 


.Tf 2 GT 0 ~~~ 

0 2 0 G 1 
ii p n n ? 

2 0 0 0 2241. 
03102014 
4si no ? ?u? 

p 

Q) 

p, 

i s a 0 

16 0 1 

1 ft q 2 

.LTJI™. 

SRCH02 AZJ /HE 

ST A 

S RG H Q B 

S RCH0 3 

S PCHOE 

GET THE POINTER TC THE PSA 

JUMP If REALLY *. POINTER 

. CL EAR ^RCHQ1 ...— - - .- 



o 

0200 3 
0200 4 

14302041 

77730000 

P 

.... ..... '■JL" ... 

1.6 0 3 
160 4 

......... ....... - ■. . - v- V • • .«■£ ...... ..... ....... A ..... ,... A 

'T 7 --- -—-- - ---. 1 .rv*... .. 

ENI 

VFO 

SRCHRSTR,X3 

A 12/DINT 

. f* /Tsli ^, 4.-4 cw 

ENTER THE RETURN ADDRESS 

PREVENT INTERFERENCE 

1 

O 


.. 02005. 

TvT'T'TTf . 

X 

1 b * ? 

1 A. n A 

*-tWP- 

Jf 

G IV a U r r v 

U 1 Vt THE FILL LURE SLCuK BACK. 



o 

0 2006 

47202240 

p 

JL O* 0 

16 0 7 

SRCHCWT STI 

SRCHEXIT,X2 

.. —....'. 

SAVE THE RETURN ADDRESS ___ ; _ 


O 


0 20 07 
02010 

. 020-11 . 

13 00 0 030 
77650031 
-40 00-?246- 


. ”XWB—~ 

1.60 9 

_ _ 1 ,. 6 - 1-0 __ 

-SFA"Q ~ 
PPA 

STA 

PfLOC^PFR 

_-PFSAVE.-_-_ 

SAVE THE CONTENTS OF PFLCC 



o 

02012 

02013 

1300 0030 
01001777 

P 

i 611 
1612 

SHAQ 

UJP 

24 

S RJHP f L [; 



O 

o 

02014 
02015. 

5 3 7 0 0 0 0 G 
25301755 

A . . 

. 1613' 

1614 

1615 

SRCHO3 TA1 

SRCH03X LDAQ 

X3+PSA 

_T5.X3+PSA___ 

LOAD THE PSA INDEX 

LOAD THE FILE NAME ' 


. O 





1616 

1617 

_..._1..61..3. 

¥ 

* THE FOIL 

* 

OWING IS THE SCATTER 

FUNCTION FOR THE FILE DIRECTORY 



O'. 

a. 

02016 

02017 

0 20 20 
02021 

.53040000 

50002151 

53040000 

00002 Q 21 

p' 

161.9 

1.820 

Ihcl 

1622 

1623 

AQA 

MU A 

FOSELECT VFD 

FOHASH 

A9/IMPURE,A15/ + +IM 

PURE,A24/IMPURE 

— 

” O 

....- O 


"- -TTZWZ3 . 

02024 

.02025 . 

~TT2T7777. 

14302045 
.21-077-77.7.-. 

X 

p 

. x.. 

1 6 2 4' 

1625 

.. .. 

SRCH04 ENI 

ENI 

-..-.-._LQQ- 

READ, X 2 

SRCH 0 5» X3 

..FOLE-N-G-T-H ._. - . 

ENTER THE COMPLETION ADDRESS 




o 


o 








































ASSEM3LER/0S3 VI.0 G9/24/74 0122 PAGE 32 


REQUES T 



FILE DIRECTORY SEARCHES 


PFLOC+ PFW .PFLOC AND RES T O RE IT . 

SRCHEXIT 

MACH ERR IRRECOVERABLE ERR OR 

A12/EINT 

S RCHEXIT»X3 SAVE THE RETURN ADDRESS' 

PFLOC+PFR SAVE THE CONTENTS OF PFLOC 

PFSAVE QUARTER PAGE NUMBER OF THE FILE 

.15 ... .CORE.BLOCK.TO.PFLOC. 

P FLOC+PFW 

. SRCHQB , X2 — - LOAD THE PSA -P C IN TER- ---.- 

Q,X1 START AT THE BEGINNING OF THE 

T1,X2 BLOCK 

.SRCHQ7.—..--. JUMP IF WE WANT AN EXISTING NAME 

CORE+FDSYM,XI GET THE NEXT NAME 

SRCH08 JUMP IF VACANT 

.FOELNTH.Xl .POINT.TO.THE.NEXT.EN T RY. 

WPF8-FDELNTH+1,X1 SKIP IF IN THE NEXT BLOCK 

SRGHQ6 - -.—.-.— -— - 

SRCH09X READ ANOTHER BLOCK 

CORE+FDSYM,XI -\ LOAD" A " NAME - 

T 5, X2 
0 

.struhttb . jump.tf.not.the.one.we.want.~ 

T 5, X2 LOAD THE FILE NAME 

-18-LEAVE.THE.LEFTMOST CHARACTER. 

ACCNUH,X2 COMPARE ACCOUNT NUMBERS 

NBIT23 IGNORE LOGON/LOGGFF CONDITION 

‘“CORE + FDACCt*XT"" 1 .......- . 

77755B 

77753B SKIP IF * OR $ 

.S'RCH'09 : ...JUMP.IF.ACCOUNT.RUBBERS.DIFFER 

CGRE+FDURN,Xi 

.USRNUM-, X2 -.-COMPARE—THE USER COOES-.—.— 

777568 

777538 SKIP IF $ * OR + 

-S-RGH-ES--—-JUMP IF" NOT FOUND...—. 

7778 SAY WE FOUND THE NAME 

T1.X2 EXIT TO THE GALLER 

.F0ErNTR7Xr~...POINT.TO.THE.NEXT.ENTRY.... 

WPFB-FDELNTH+1,XI ARE WE AT THE END OF THE SLOCK 

.SRCHOX-—:.-...LOOP.BACKIF.NOT—.-.- - 

CORE-FBELNTH + FDSYM,X1 GET THE LAST ENTRY 

* +2 JUMP IF A NAME 

"SRCHO8*X“.—-—.JUMP"Tp.NOT -p0UN0.—... 

ADDRESS GET THE FILE DIRECTORY SLOCK 

1 POINT 7C THE NEXT BLOCK 

.SRCBOA'---------:-~---- 

X3+PSA 

JL4.,.X1_SI-.Qfi.E—XNXO—13-__- - : 

0,X2 EXIT FOR AWHIlL 


ADDRESS LOAD RELATIVE FILE BLOCK NUMBER 

.*'+4,X3'.......SET.THE.COMPLETION.ADDRESS. . . 

WRITE,X2 

MACHERR IRRECOVERABLE ERROR 

SRCHEXIT,X3 - - SAVE THE RETURN ADDRESS 

PFLOC+PFR SAVE THE CONTENTS OF PFLOC 

PFSAVE QUARTER PAGE NUMBER OF THE CORE 

.15—“ ...BLOCK WE 'ARE USING TO PFLOC'. 

PFLOC+PFW 

.SRCHGB,.XS+ESA- _ GET THE POINTER.. IC . THE PSA... 

40 CHARGE FOR THE FILE DIRECTORY 

TOT ALUM, X3+PSA REFERRENGE 

—NTMS-WAIT...-.-TH-E USER IS NO LONGER - WAITING - 

I0B0UND,X3+PSA ON MASS STORAGE 

T 3,X3+PSA GET THE POINTER TO THE NEXT 

.SRCHQ'B"---USER WAITING.FOR.THE.FILE...... 

SRCH02 DIRECT GRY 









































a. 

ASSEM 8 LER/C 

S3 VI. 0 

0 9/24/74 

0122 PAGE 33 

REQUEST 




0 2146 

0 0 00 0 000 


.1715. 

1716 

.....i 71 7 ..... 

IMPURE0 3 

VFQ 

A 24/IMPURE END CF PURE CCDE REGION 03 


CD 

U 2147 

0 215 0 

63214725 

47212342 


1718 

1719 

3CD TAPE 
8 CDPACK 

3CD 

-3CD 

1 , T A P E 

1,PACK 


0 

U 2151 
02152 
02153 

00 00 0 000 
44622660 
44636060 

• 

172 0. 

1721 

1722 

P DHASH 
8 CDMSF 
8 CDMT 

VFQ. 

BCD 

SCO 

A 24/1M P U RE ......* - —* ............ 

1, MS F 

1 9 MT 



02154 

0 215 6 

..0 2156. 

44 6 6 6 760 
77 60 0 0 0 U 
776Q 4446 


.1723..... 

1724 

.. 1 . 77,5 . 

MTFRMSG 

- M1M.S.C..:. 

BCD j C 

3 C O > C 
arn.r... 

9 »MT X FREEa 

1 , : 

6 .MOUNT. . 


O 

02160 

02161 

67676767 

60676767 


1726 

1727 

BCOION 

MTNUM 

BCD j C 

BCD, C 

.Dj 1 lUUn 1 - - - - - - .. 

5,XXXX 

8 ,XXXXXXX 


o 

0 21 bo 

02164 

ou264651 
60676767 
00 0 03 


... .17 28 

1729 

1730 

M.TTERM 

HTTERML 

BCD, C 

BCD, C 

EQU, C 

4 j F 0 R 

3, XXX 
*-MTTERM 



0 2165 

60 60 6 0 60 

0 0 074 

...n nn- 3 - 5 . 


.X73T. 

1732 

...1.777_.... 

WUTT. 

MAX MESS 

MX! MTU . 

"BCD ,~C.'. 

EQU f C 

rniL.r. .... 

6 0 , 

*-MTNOTE 

M TKlfl T F- M TM5n + 1 . 


o 

02204 



JL » U ’iJ.. 

1734 

17 3 5 

-■ {■ n 1 fi .. 

3SS 

.s 1 1 CL r -*n 11 1 ............-.- ■ .- - - - . ..... 

0 SET THE PC TO A WORD BOUNDARY 


o. 




17 3 6 

1736+001 

173 6+0 Q 2 


MACRO 

PI, , P 3 






1736+003 
1736+004 
...1736 + 0 Qg. 


$P 1 IS THE HARDWARE TYPE 

$P3 MAY HAVE UP TO 3 PARAMETERS: 


O .~ 




1736+006 

1736+007 


UNITRE 
DOWN_ 

C — DEVICE IS A UNIT RECORD DEVICE 

— DEVICE IS OOWN_ it_BSOUGHT_UP BY INITIAL) 


o ..... 




173 6 + 0 0 8 

1736+009 
1736+010 


tyuAiru.— utvxor n. alkcaut: .turu'Artu. inull.unit j 

NAME DEVICE 


1 




1736+011 
1736+012 
......i_7_3.6+_Q-1-3. 


LOCAL SET 
RESET 

.RESE-T-.. 

U , 0 ,E,STRING....... ... ... 

u=o 

.Q.-Q......... ... . . 


o 




1736+014 

1736+015 

P ARAM 

RESET 

REEQU 

E=0 

1 . 


o _ 




...— 

1736+017 

1736+018 

«IF T EST 

If 

RESET 

IF 

PARftM ST L^PSji GOTO ASSeM 

STRING=$P3(PARAM) 

.H,^$STRIN.G t .EQ HFUNITRECF, RESET U = 1 .. ; ... 






173 64 0 19 
1736+020 
.1....Z3....6+--0-2-1.. 

.P..AD.AM. 

IF 

IF 

-REEQU-... 

HFSSTRING75 EQ H7D0WN7, RESET D=1 

H £$S TRINGjf EG HFEQUATEO/, RESET E =1 
...p... A R A M -+-1 - - - - .... 


0 - 




1736+ Q 22 
1736+023 

t “ * % ir% 1 i 

,AS SFM 

GOTO - 

VFD 

I PTES f 1 

A 1 /SE,Al/$U, A3/0,A4/HT:$P1,A15/$D,H24/$F1 


o _ 




17ob+ 0 24 

1746 

1747 


t n U 




02204 

.....Q2206. 

.0Z'2’9"4” 

21500001 
2 07.0 0-Q-Oi- 

P 

I 74S 
1743-1-001 
. 17 434 0 - 0-2 

HARDWARE 
P TP 
-RIOT 

EiJ 

DEVICE 
DFV-ICF. 

U NIT REC,D CWN 

- U NITREC-.-DOWN .. . ' . . .. 


o ~~ 

o. 

02210 

02212 

.02214- - 

02216 

20300001 

20200001 

21300000 

0 Q 0 12 

0 0 100 0 GO 


174 t+00 3 
1743+0C4 . 

.. 17 48+00 5 

1754 

1754+001 

PUN 

LP 

TASK 

OUT DEV 

F IL E 

DEVICE 
DEVICE 
DEVICE • 
EQU 

DEVICE 

UNITREC t DOWN 

UNITREC,DOWN 

UNITREC 
¥ -HARDWARE 

.- ...— — 


... 02220 . 

02222 

01200000 " 
41000000 
. 0 0 0 20 . 


.1754+W2. 

1754+003 
.....l.Z. 5.8 ... 

"RAF. 

NULL 

.HOLENOTH 

'DEVICE. 

DEVICE 
,.£QU..- 

EQUATED 

.+-hardware ... . 


0 1 " - 

02224 

, . n o o o c. 

1440 0 00 0 


1759 

1760 

TTYUNIT 

VFD 

A 9/100,015/00000,01/0,A8/HTTTY,015/00 000 


10 v ■" 

o„._ 

U cccu 

02230 

in-4u o uuu 

0 2 231 

P 

1 f cl 

1762 

1763 

i « v.< N i ! 

FORM 

Vi* u 

8SS 

0R6R 

A 9/ lllwf ulp/ U auQU,0 1 / 0 j A £ / rt \ I \i | 0 x v / o 8 0 u 0 
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ST A 


01615P 

1354 

133 3 + 34 

01613 P 



S'i AQ 


017 0 3P 

1 47 0 

1388 

016 2 7 P 

1419 

016 43 P 

STMTWAIT 


U0366P 

.504. 

.606 

00524P 



STRTLOC 


00 025 

57 





. SSJB .... 

.x. 


..j 72 . 

... 4 + 4 

0 0266P. 

.651 

0 0554 P. 





1068 

012 77 P 

1116 

013 34 P 

SWBIT 

X 


107 

1437 

01656P 

1587 

017 63 P 

“SYSCM.— 

.X 


108 

—359“ 

0 0 200 P 

—952“ 

01145P. 

SYSCODE 

X 


109 

1427+1 

01644P 



SYSERR 

X 


110 

856 

01035P 



.T 1. 

.X 


■ 1IT - 

.'.99 0 

0 1213 P 

1078 

013 10P 





1551 

02055P 

1678 

0 210 7 P 

.. 12 ........ 

.x. 


..li „.2 . 


.0-0-341-R. 



T 3 

X 


113 

1583 

01757 P 

1710 

02143 P 

T 4 

X 


114 

64 0 

Q0541P 

788 

00 7 42 P 













i & tj y 

0 a.. 4 4 4 .P 

±Z:5/ 

..0x475 P 

T5 

X 


115 

98 8 

01211 P 

9 97 

01222P 





1664 

0 2 0 71P 



TAPEEISi 

" X"" 


116 

.5 0 2” 

TOTS'ATP - . 

..".506 

00 372?... 

TAPEMAX 


01731? 

1557+16 

225 + 1 

0 0 0 3 0 P 



.IAPFSAVL. 

.x. 


.11 5 + j. 

.15..5.Z.+ 2 - 8 ... 

..Q,.l744.p.. 



TASKQ 

X 


117 

8 7 4+ 6 

0i06iP 



TBATCH 

X 


118 





TBATCHN 

X- 


.-119“ 


—— 



TBLKLIST 

X 


120 

56 8 

00466P 

834 

01012P 

TERMINAL 

X 


121 

53 0 

Q 04 21? 



TFBLKMAX. 

.X 


. 122 . 

.iwr 

"0T2 7 VP . 

.IT62" 

01272P. 

TFBLKS 

X 


123 

750 

00677? 

755 

00715 P 





. 10 . 94 .. 

.0.13.2-7 E. 

.„..1...4...6-9...- 

-0170-2.P.- 

TFL 


00 007 

97 

1775 

0 22 37P 

408 

Q0260P 





764 

Q0714P 

810 

00766P 






01446P.. 

.loot 

U lb £t> P 

TIMELEFT 

X 


124 

1417 

91641P 



TIMEM ASK 

X 


125 

1431 

01650P 



TIMERS Q' 


0164 OP 

1 416 

2 12 

"O'MTZF. 



TIMES 2 


01634P 

1402 

14 0 : 0 

016 32 P 



TIMESET.. 


..41-63QR- 

....13 95 .... 

..2-lr-jU 

•0 0 0IIP__ 



TIMEWAIT 

.X 


126 

1435 

Q1654P 



TIMLIM 

T M l .livl f.„ T C T 

X 


127 

1399 

016 31P 

1418 

01642? 

1NunL1 b i 

X 


Ifif 7 +1 ■ 


OTO 11 P. ' 



TOTALTIM 

X 


128 

1416 

01640 P 

1707 

02140 P 

TPMNTCHG 

X 


129 

512 

00376P 



TPUNTTS. 

~~x~ 


13 0 

. 4 98 

'"0’0"36’0’F“. 

5W~ 

00 37 OP. 

TRUNT IME 

X 


131 

1405 

01636? 



.TT-FCHR... 

.X 


_13g 

____ 535 

0 0426P_: 



TTYUNIT E 


BE22 UP 

1760 

30 

00000? 



TOUNIT E 


02226P 

1761 

31 

OOOOOP 



■TXTOTAL. 

—-X- 


-~ i —~~±3-3~ 





UDESTLP 

X 


13 3+1 

323 + 1 

00132P 



UNEQOIL 


GO 55 7? 

654 

799 

0 07 55 P 



U NEQOIQ 


“0055'6'P. 

."65 3' - 

642'" 

0 0 5 43 P 

.... 6W - 

D055IP 

UNEQ01X 


0360 OP 

671 

80 4 

0 0 761P 



..UNEQ0.1Z.. 


.0...Q..6.0.4?. 

___6.Z.5— 

....667 

0 0574P.. 



UNEQ04 


00706P 

75 8 

686 

00616P 



UNEQ05 


0071IP 

761 

740 

0 0662 P 

7 43 

00665 P 

UNEQ05X 


00712P 

-762 - 

613 

0 0 7 ? 1 P 


^^ 

UNEQO 7 


Q0722P 

77 2 

760 

0 0710 P 

8 09 

00765P 

U NEQO 8 


00724P 

774 

781 

0Q733P 



UNEQQ9 


00 75 3? 

.797. 

, 557 . 

Q0562P.. 



UNEQ11 


00756P 

801 

673 

0 0 6 0 2 P 



.UNEQCR__ 


00716P 

...766. 

..6.9.2. 

. 0.0 621 P. 



UNEQJMP 


00615P 

68 4 

685 

00616P 

6 87 

00617P 





697 

00624P 

699 

0 0 6 25 P 





, 7 n q,~ 

fj n p. "i ? p 

7 A A 






/ U O 

UucOir 


. tltOutjr . 

UNEQMSF 


0102 IP 

843 

708 

00631P 



UNEQMT 


00772P 

820 

694 

00622P 



UNEQRAF 


0 0 76 3P 

.. 807 

...70 4 

0 0d27P.~ 



UNEQTASK 


010 4 2P 

864 

706 

0 0 6 3 0 P 



.UNEQUIP... 


,00536?. 

. 63 7. 

.2 04 

.0 0 0 02?.. 



UR8EXIT 


0 0 021 

51 

52 

OOOOOP 



UR8EXITA 

MCD \1 i 1 M. 


0002 0 

50 

51 

CV . 7 . 02 ,.,., 

OOOOOP 



uoKiNun 

..A. : 


'. 1 OH . 

lu T o 

UqIu dr 



UTAPEMAX 

X 


134+1 

460+1 

0 0 342P 

513 + 2 

0 04 01P 


1602.02002P 


1225 01464P 1229 Q1470P 1299 01547P 


1483 0 17 0 7 P .1 55 7 0 17 3 0F 


-759.0Q7Q7-P .-.8 08. 00764P.-.-9 20. 011Q5P.975 

1191 0142 2 P 1260 0150 0F 

.1427 + 3 0164 6 P.—— 


1124 

'01344?. 

1127 0I347P 

114 0 

01364P 

1578 01752? 

916 

QllGlP 

960 01155P 

963 

0116 0 P 

1173 .14. OF 

1289 

1145 

01535? 

0137iP 

—“1689 02122P— 
1581 01755P 

1615 

02015P 

1661 .2 0 ..of 


511.GT37'5P ..836.01014? 


1468.017GTP... .. ’.....”.*. . ......... 

871 0105OP 974 01173P 1056 01264P 1059 

.579. 0 0 5 0 OP.739.0 0 6 6 IP . 7 49.0 0676 P.761 

870 01047P 965 01162P 973 01172P 1051 


032.01006P 


65 "0.0W53F 


867 01044P 


689 00620P 691 00S21P 693 00622P 695 

701 00626P 703 00627P 705 00630P 707 

■ 684 0 0615P ■—. —.—-... 


822+1 00775P 1557+17 01731F 1557+31 01747P 
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REQUEST 


or l°kec 

W-PF3 

-WRITE.-. 

XI 


0 0 0 0 5 
0100 0 

00 0 0 1 


0000 3 


163 0 

-1696 

258 

292 

.342+6 

381 

415 

433 

453 

--569 

598 
658 
——Erf'9" 
751 
764 

. 792 

828 

--852. 

874 
913 
—9-84~ 
1046 
1057 
rQ7r 
10 95 

-±47-2- 

1195 

1218 

.±292- 

1323+11 

1333+33 


-4-63-0- 
261 
3 06 


8 33 + 1 
874+12 


lu + 5 
1118 
1137 
1145 
12 0 9 

~.127o 

33+22 
--1S..9.3.. 
16 6 4 
271 
—£97- 


802 

.871 

964 

983 

1032 

1076 


0 2 0 31 P 
02126P 
00032P 
00073P 
0 0162P 
0 0226P 
00267P 
00311P 
0 0334P 
0 0 4 6 7 p 
0 0 514 P 
00563P 
*Q 0 610 P 
0 07 OOP 
00714P 

mm&F . 

010 02P 
-&4Q-14?- 
010 5 3 P 
010 76P 
012 0 5 P 
Q1252F 
01265P 
TDI1F 
01330 P 

013777. 

Q142&P 
G1455P 
"Si 5'4'0'P 
Q1553P 
01612P 
"GT6'25P" 
02061P 
-02444?- 
00035P 
00110P 
0O123P' 
0 0 212 P 
00236P 
TOW 
a 0417P 

-.0...Q.43-&P- 
00534P 
0 0 6 5 3 P 
§07 TIP 
01010P 
Q1067P 
T1W 
0117 3 P 
-04-2-3043- 
01251P 
01 3 3 6 P 
013 61?" 
01-371P 
01444P 
TfTFZQ'F 
015 77P 
-047717- 
02071P 
QQ046P 
-frfrfrW?- 
0Q125P 
00154P 
00227 P 
00275P 
.3--0 336P- 
00406P 
0 0 4 5 3 P 
00531P 
0 057&P 
0 0657 P 
00725P 
00757P 
010 50 P 
0 1161P 
012 0 4 P 
01235P 
013Q6P 


1656 020 62 P 


265 

314 

——3*46- 

388 

418 

4 - 4 T 

498 

-5-71 

607 

660 

—727" 

754 

768 

.795 

831 

..853 

874+3 
917 
—99'4- 
1050 
10 59 

.. TG7T 

1115 

-1174 

1205 
1222 
——±-£97- 
1323+17 
13 83 
- f5 - w 
1656 

-4&-B-2- 

263 
307 
——3-g-fr 
374 


738 
7 b 2 
833+2 
874+16 

__g-g-g- 

■ 979 


1129 

——14*39- 

1146 

1225 

..1278 

1333+23 

.16.07 

.1666 
27 4 
3*8# 
321 
342+1 

.. 3W 

426 
_—46.0-+-1- 
530 
560 
—6-4-0- 
670 
750 
7?6 
822+1 

.-.916 

965 

986 

•1033 

1078 


0 0 0 41P 
00120 P 
QG164P 
00235P 
00 2 72 P 
00321P 
00 3 60 P 
004 71P 
Q0525P 
00565P 
006 45 P 
00703P 
00717P 
Q0751P 
010 05 P 

.Q10 32P- 

Q1056P 

011Q2P 

.01217P 

01256P 
012 67 P 
"TiTQTF 
01 -3 3 3 P 
014-01? 
014 40 P 
01461P 
015 4 5 P 
01571P 
01617P 
T175BF 
02062P 
02113 R 
00037P 
001 IIP 
“0-frl-£6-P~ 
00217P 
00 2 45 P 
■"10403F 
00420 P 

.0 0-4 43 F- 

00544P 
00660 P 
00734P 
01011P 
01973P 
TIT55F 
012 OOP 
.-.0.1-2-31F- 
012 55 P 
013 SIP 
-01363P" 
01372P 
014 64P 
■UT5Z2F 
016Q5P 

.020 06P- 

02073P 
0 0 0 51P 
00103P 
00127P 
00155 P 
0 0 2 37 P 
0Q302P 

.00-3422- 

004 21P 
0 0 4 5 6 P 
005 41P- 
00577P 
00677P 
0 0 7 26 P 
0 0 7 75 P 
Q U O I P. 
011 62 P 
012 0 7 P 
012 36 P 
01310 P 


1680 02111 P 


267 0Q043P 
326 00135P 
347 00165P 
392 00241P 
424 00300P 
4440G324P 
506 00370P 
- 577 - 0 0476P 
612 00532P 
663 0057QP 
—“7^9—o-tmeiL-p-* 
756 G0705P 
778 0 0730P 

. 80 I QQ755P 

832 01006P 

-—358.0 40-37?. 

874+4 01057P 
938 01127P 

~."996.04224?. 

1051 01257P 
1060 01270P 

.1082.01314?. 

1120 01340P 
113204444? 
1206 01441F 
1224 01463P 

.1296 01546?. 

333+19 G1574P 
1382 01621P 

-r&5z~TFcrnnr 

1660 02065P 

1639 0-2122P. 

264 GGG4QF 
309 0 0113P 

384 GG231P 
398 00247P 

.3lF““0040FF^ 

533 00424P 
—55-0—0-0-444-P— 
649 00552P 
746 0067OP 


275 00052P 
333 00143P 
—3-48 00166P 
399 00250P 
428 00304P 
448 0 032 7 P 
511 0Q375P 

.5 79.0 050 O P 

637 00536P 
664 00571F 

-741 0 0 6 6 3 P 

758 G0706F 
784 00736P 

.8 07.0 0 7 6 3 P 

836 01014P 

---8-6-5.0-104-2 P- 

874+8 01063P 
961 01156P 

•-9 9 8 0122 3 ?' 

1353 01261F 
1062 Q1272F 

.10 84.01316 P 

1130 01352F 

-1185 01444? 

1207 01442P 
1253 0147 IP 

—.1322.0155 O P- 

1333+21 01576P 
1383 01622P 

...1630 020 3 IP 

1668 U2075P 

266 0 0 042P 
313 0Q117P 

..363.002C4P" 

385 G0232F 
436 00314? 
5 20’!JG4¥7P 
534 Q04 25P 
—-—553 0 044 7F 
682 00613P 
755 G07G4P 


279 00056P 
339 QQ151P 
3760022IP 
400 0Q251P 
431 00307P 
450 0 0 33IP 
566 00464P 
58100502? 
639 00540P 
665 00572P 
—7'46+3 00673P 
761 00711P 
787 '0 0 741?.' 
81000766P 
846 01023P 

-86901046P 

874+10 01065P 
962 01157P 
102401225P 
1054 01262P 
1067 01276P 

.10 66.0132OP 

1169 01374P 

.-4487.04446? 

1212 01447P 
1255 01473P 
1323+1 01552P 
1333+29 01606P 
1384 01623P 

.*.16 50 0 2 0 5 4 P 

1672 0210IP 


291 00072P 
315 00121P 
367 0 021 OP 
386 Q0233P 
439 00317P 
524 00413P 
538 0043IP 

.55-9.00455? 

6 84 0 0 615 P 
774 0Q724P 


283 -.062? 
341 . 0 15 3 F 

..377 “ 0 — 

4 03 - 0 254P 

4 32. ..L.3.LU£. 

452 , 0 . :5F 

5 68 0 4 .-o P 

.582...,57-3?. 

654 0 j 5 7 P 

675 • j 6 0 4 F 

.7'49 •■■V‘J'97 6 -?- 

762 -.0712P 
791 -07 4.5 r 
8 20 ■ : 0 7 72P 

8 47 ..-i.a/M-P 

.-.-.870.— 1 -0-4-7-f-. 

912 li0FSF 

9 82 12 0 3F 

10 26 bib 2 V r 

10 56 0 1 2 b 4P 
1069 .i;.jr 

.40 94. bl'Scirp" 

1171 0 1 J ?' 6 P 

-1190 0.-2 IP 

1216 0 1 4 5 3 P 

1271 01513? 
-1323 + 5 01 y5"bP 
1333+32 0161IP 
13 86 U 1.625? 

...1653.: : :FG57F' 

16 79 „2~10P 

295 lJT&P 
316 I 0 i :2P 

—.. 368 ! 02•IP 

387 10234 P 

4 4 0 1.0 2 0 + 

.526.1.0TI5P. 

5 41 fu -V 3 4 P 
.5 75 L~Q--,?iP~ 

7 32 ( 0 o5cP 
777 f 0 f 27P 


—7*85“fr-07^Tp- 
839 01017P 
918 01103P 

980 012e.lP 
-1-03-5—0-42-3-7-P~ 

1064 01273P 
1131 01353P 
-1-14Q- 01/364P 
1196 014 27 F 
1256 01474P 

TZ8W"'WX5"35'F . 

1440+4 01665P 

.46-2-4.02G23P. 

1673 02102P 
282 0 00 61P 
305 50407P 
323+1 00132P 
342+4 0G160P 

.395.G0Z44P 

427 0 03 0 3P 

.—49-7—0-0 35 7. P_ 

535 0 0426P 
562 0 0460 P 

6 5 3 - q Q 5 5 6 p • 

671 00600P 
752 0 Q7 01P 

.783 0 0735P 

829 01003P 

..933.04122 P 

973 01172 P 
987 01210P 
•404001244P 
1119 01337P 


-788 UG742F 

845 G1022P 
919 011 0 4 F 

”. 4 60 Oil 63 F 

985 01206F 
—-1 0 39 0124 3P 
1U 72 013G2P 
11.23 G13 5 5P 
1141 01365P 
1499 01432F 

.1258.014 7 6 F. 

1323+2 015 5 iP 
1525+1 01716 P 

.:.1-64-9.0-2-0-53?. 

1678 02107P 
288 Q0067P 
—3-&3—0 044.-2 P“ 
323 00137P 
359 0 02 0 OP 

405.0 0256F. 

429 00305P 

- 54.0 .0 0-374?-. 

536 00427F 
563 0 046 IP 
-"“~**-6'55--0'05-6.0P“- 
672 0 06 0 IF 
765 00715P 

. 78980743? 

844 04021P 

.936.041-25? 

976 01175F 
988 0121 IP 
40 4 4-0 42 45? 
1121 0134 IP 


"7 9 0 0G7 44P 
851 01Q30P 
922 01107P 

. 968 01165P 

995 01220P 

— 1042 04246? 
1079 Q1314F 
1134 01356P 
1143 01367P 
1200 01433P 
1263 01503P 

13 2 3+13.015 65 P 

1539 01721P 

.1651—0-2-0-55 P- 

1690 02123P 
289 00070P 

- .311.0 0145 P 

331 00141P 
361 00202P 

.408.00250? 

437 00315P 

.5-13.OQ 377?. 

545 0044OP 
578 00477P 
—659 00564P 
673 00602P 
767 00716P 
7 97 Q0753P 
859 01040P 
94304434P 
977 01176P 
990 01213P 
-4065 04274P 
1123 01343P 


..825+2 CnOlP 

8 74 + 7 Ci 0 6 2 P 
93 0 C _ : i7P 
.97 2. 0 : :• tip 

997 Cl~22P 

— .40 43.04-2-4-7? 

10 87 0-32 IP 
1136 OlJouF 
~ "1144 0 1 37 UP 
12 01 01-3 4 F 
1270 0..512 P 

1323+19. 0T5T2F . 

1580 01754P 

. 1661. 0 2 u-.: 6 P- 

1696 0,212 & P 
296 0 0T7F 
—34"8-~0'012hP' 
336 0 04 46 P 
3 64 0.205,° 

~ 410. ‘0“0“Z52"P . 

447 0Q326P 

. 513-+ 2 -~ 0 -J-7-0-1 1 -— 

5 46 OU^UP 
599 00. 15P 

.—. 6 61 0 li 5 • ■ o F 

578 01607P 
772 0IJ712P 
.798 01 

8 68 01-045P 

— .952.0:. 145?- 

9 81 02.202P- 
10 3 0 01 2 - 3 P 

— .10 74.01304P 

1124 01 3-4? 
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~ ' .' '. 1125 04345P ‘.1127 U1347P 

1211 01446P 1213 014 50 P 

■ -— - ---— --1257 G1475P-1265 01505P 

1287 Q1533P 1288 01534P 

1399 01631P 1405 01636P 

——™——....—.——1427^3'.0164&P -. 1432 016 51P 

1440 + 8 016 71P 1451 01673P 

1470 01703P 1481 01705P 

1556 01727 P '.1557+17.0173iP 

1579 01753P 1581 017 55P 

— - -----160 3 020-0 3 P — 1614 020 14 P 

1695 02125P 1700 02131P 

XREQEND X 136 310 00114P 323 00131P 

___ .0'062 6P"“— “— 7 5 5 0 07 04 P 

859 0104BP 882 01074P 

1330 01573P 1355 01616P 

.144101672P 1456Q17QQP 

1557 + 32 017 50 P 1580 01754P 

. X RE QERR . X -- 137-.3-50 .0 01702-- 

XTEMP 02244P 1782 735 Q0655P 745 00667P 

ZEROPAGE 0i715P 1524 209 GQG87P 

ZEROPG —-X —.——138.—.152?. 04?dE?P~ 


1128 0135 0 P. 

1219 01456P 

-4279.0452 3 P 

1296 01544P 
1416 01640 F 

- 

1452 01674P 
1482 C1706P 

1557+22 01736P. 

1583 01757P 

-1615.02015F 

1705 02136P 
327 00136P 

. 770 0 072IP. 

1133 01412F 
14Q6 01637P 
1471.01704P 


1031 01234P 


~~1173.014G0P 

1223 01462P 
128201526F 
1323 + 8 0156 OP 
1417 0164 IF 

-..14 36 016 55P 

1455 01677F 
1503 01713F 
1557 + 25 0174 IP 
1585 0176IP 

.4625.0 20 2 4P 

1707 0214 OP 
666 0Q573F 

.8 05 0 0762P 

1192 01423P 
1433 01652P 
1493.01712 P 


1036 C124GF 


.4193.01424P 

1226 01465P 
428301527P 
1354 01615P 
1418 01642P 
1440+101662P 
1468 Q1701P 
1540 01722P 
1557+3101747P 
1591 01767P 
464402046P 
1709 02142P 
696 00623P 

. 83504013P 

1259 01477P 
1440 + 3 01664P. 
1525 01715 P 


4240 01 nrsr- 
1227 01«,oi 
128401vJvP 
1398 OloiOf 
1427 + 1 016; '<■ F 
1440 + 7 016/ l(- 
1469 01/02r 

1543 01725P 
157801T52F 
1594 01/72P 
16 88 02 ,._ir- 
1710 0216 J c 

7 00 0 0 o J 5 P 

.8 3 9 0101 T r 

1264 01 ^u '4F 
1440 + 5.01 :: o P 

1544 01/ 26 f 
















































